Найти сумму положительных элементов в каждом столбце матрицы и переписать их в одномерный массив — Pascal(Паскаль)

var
   a:array[1..5,1..5] of real;
   s:array[1..5] of real;
   i,j:real;
begin
   for i:=1 to 5 do 
   for j:=1 to 5 do begin
   readln(a[i,j];
   writeln;
   for i:=1 to 5 do
   begin
        for j:=1 to 5 do
            write(a[i,j]:3:2,' ');
       writeln;
   end;
   for j:=1 to 5 do
   begin
       s[j]:=0;
       for i:=1 to do
       begin
  if a[i,j]>0
  then
     s[j]:=s[j]+a[i,j];
   end;
end;
writeln;
for j:=1 to 5 do
  write(s[j]:3:2,'; ');
end.