Создать массив А[1..N]. Определить сумму отрицательных чисел. Из положительных чисел массива А создать массив В и определить в нем минимальное число. Вывести сумму, массив В и его минимальное-Pascal(Паскаль)

Program program_5_2;
uses crt;
const
M=100;
var
A:array [1..M] of integer;
min,n,i,s:integer;
begin
write('vvedite n: ');
read(n);
s:=0;
for i:=1 to n do begin
write ('vvedite A[',i,']: ');
readln (A[i]);
end;
write ('Massiv A: ');
for i:=1 to n do
write (A[i]:3);
writeln;
min:=A[1];
write ('Massiv B: ');
for i:=1 to n do begin
if (A[i]<min) and (A[i]>0) then
min:=A[i]
else if A[i]<0
then s:=s+A[i];
if A[i]>0
then write (A[i]:3);
end;
writeln;
writeln ('Min=',min);
writeln ('Summa=',s);
end.