Нужно добавить getmem и указатель

Program Task_1;
var M,N,i,j,k,t:integer;
    max,temp:real;
    a: array[0..100,0..100] of real;
Begin
  randomize;
  Write('Введите M:');
  Readln(M);
  Write('Введите N:');
  Readln(N);
  //Ввод матрицы
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(-100,100);
          write(a[i,j]:5,' ');
        end;
        Writeln;
    end;
  //Нахождение максимума
  for i:=1 to n do
    for j:=1 to m do
      if max<a[i,j] then
        Begin
          max:=A[i,j];
          k:=i;
          t:=j;
        end;
  //Вывод промежуточных результатов
  Write('max=',max,'; ','K=',k,'; ','T=',t,'; ');
  //Замена строк
  Writeln;
      for j:=1 to m do
        begin
          temp:=A[1,j];
          A[1,j]:=A[k,j];
          A[k,j]:=temp;
        end;
        Writeln;
  //Вывод конечного результата
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          write(a[i,j]:5,' ');
        end;
        Writeln;
    end;
  readln;
end.