Дана матрица A(nxm). Вычислить сумму элементов тех столбцов, у которых 1-й элемент положителен — Pascal(Паскаль)

program pr1;
var a:array[1..100,1..100] of real;
    n,m,i,j:byte;
    sum:real;
begin
  writeln('Vvedite n*m');//ввод размерности
  readln(n,m);
  for i:=1 to n do
  begin
           for j:=1 to m do
          begin
            a[i,j]:=15+1/(1+random(19))-random(20);
            write(' ',a[i,j]:2:2);
          end;
          writeln();
  end;          
  
  for j:=1 to m do//цикл от 1-цы, до количества столбцов
  begin
    sum:=0;//обнуляем сумму
    for i:=1 to n do//цикл от 1 до количества строк, чтобы пробежать все эл-ты столбца
    if a[1,j]>0 then sum:=sum+a[i,j]//если первый элемент столбца положительный, то суммируем
                else break;//если он отрицательный, то разрываем цикл
    if a[1,j]>0 then writeln('Summa ',j,' stolbca- ',sum);//если первый эл-т столбца положительный, значит сумму мы накапливали- выводим сумму
  end;
end.