Дано массив А[1…n,1…m]. Программу поиска столбца массива, сумма квадратов элементов которого минимальная — Pascal(Паскаль)

uses
  crt;
 
var
  a: array[1..100, 1..100] of integer;
  b: array[1..100] of integer;
  i, j, n, m, im: integer;
 
begin
  clrscr;
  randomize;
  write('N = ');
  readln(n);
  write('M = ');
  readln(m);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      a[i, j] := random(40) - 20;
      write(a[i, j]:5 );
    end;
    writeln;
  end;
  b[j] := 0;
  for j := 1 to m do
    for i := 1 to n do
      if a[i, j] > 0 then
      begin
        b[j] := b[j] + sqr(a[i, j]);
      end;
  im := 1;
  for i := 1 to m do 
    if b[i] < b[im] then im := i; 
  writeln;
  writeln;
  writeln('Номер столбца с минимальной суммой квадрaтов элементов: ', im);
  readln;
end.