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

var
  a:array[1..100,1..100]of integer;
  i,j,n,maxi,maxj:integer;
begin
  writeln('vvod matrici');
  write('vvedite razmer matrici: ');
  readln(n);
  for i:=1 to n do
  for j:=1 to n do
  begin
    write('vvedite ',j,' element ',i,' stroki:  ');
    readln(a[i,j]);
  end;
  maxi:=1;
  maxj:=1;
  for i:=1 to n do
  for j:=1 to n do
  if a[i,j]>a[maxi,maxj] then
  begin
    maxi:=i;
    maxj:=j;
  end;
  writeln('vivod matrici');
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i,j],' ');
    writeln;
  end;
  for i:=1 to n do a[i,maxj]:=a[i,maxj]*2;
  for j:=1 to n do a[maxi,j]:=a[maxi,j]*2;
  a[maxi,maxj]:=a[maxi,maxj] div 2;
  writeln('naibolshiy element matrici: ',maxi,' stroka, ',maxj,' stolbec');
  writeln('vivod matrici');
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i,j],' ');
    writeln;
  end;
  readln;
end.