Определить количество столбцов, содержащих хотя бы один нулевой элемент, строку с максимальным количеством полных квадратов

const
  nmax=20;
  
var
  a: array[1..nmax,1..nmax] of integer;
  n,m: integer;
 
// функция поиска первого нулевого элемента в столбце
function nul(j: integer): boolean;
var i: integer;
begin
  nul:=false;
  for i:=1 to n do
    if a[i,j]=0 then
    begin
      nul:=true;
      break;
    end;
end;
 
// процедура поиска количества полных квадратов
procedure qvd(i: integer; var k: integer);
var j: integer;
begin
  k:=0;
  for j:=1 to m do
    if (a[i,j]>=0) and (frac(sqrt(a[i,j]))=0) then inc(k);
end;
 
var
  i,j,k,t,max,imax: integer;
begin
  repeat
    write('Введите размеры матрицы: ');
    readln(n,m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  // создание матрицы
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(13)-6;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  
  // поиск количества нулевых элементов
  k:=0;
  for j:=1 to m do
    if nul(j) then inc(k);
  writeln('Количество столбцов с нулевыми элементами: ',k);
  
  // поиск строки с наиб. кол-м полных квадратов
  qvd(1,max); imax:=1;
  for i:=2 to n do
  begin
    qvd(i,t);
    if t>max then begin
      max:=t;
      imax:=i;
    end;
  end;
  writeln('Строка с наибольшим кол-м полных квадратов: ',imax,'; кол-во=',max);
  readln;
end.