Заполнить двухмерный массив 5 на 6 по формуле I*I-А*J и подсчитать количество неотрицательных элементов, включая ноль. Коэффициент А запросить с клавиатуры — Pascal(Паскаль)

programm massiv_2d;

var
  i, j, kolvo: integer;
  A: real;
  M: array [1 .. 5, 1 .. 6] of integer;

begin
  kolvo := 0;
  Write('Введите А ');
  Read(A);

  { заполняем массив }
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
    begin
      M[i, j] := (i * i - A * j);
    end;
  end;

  { считаем }
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
    begin
      if M[i, j] >= 0 then
        inc(kolvo);
    end;
  end;

  { вывод на экран результатов }
  if k > 0 then
    Writeln('Кол-во чисел, больших нуля ' + kolvo)
  else
    Writeln('Нету чисел, больших нуля!!!');

end.