Разработать алгоритм нахождения суммы положительных чисел из n введен если таких нет то вывести сообщ об этом(pascal)

Var
N:integer;
A,S:real;
Begin
WriteLn('Введите N');
ReadLn(N);
WriteLn('Введите числа');
S:=0;
For N:=1 to N do
    Begin
    Read(A);
    if A>0 then S:=S+A;
    End;
if S=0 then Write('Положительных чисел нет')
else Write('S = ',S)
End.