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

uses crt;
const n = 5;
 
var  a: array [1..n, 1..n] of integer;
     c: array [1..n-1, 1..n-1] of integer;
     i,j,x,y:byte;
     max: integer;
    
begin
 
clrscr;
randomize;
 
writeln('Массив A:');
for i:=1 to n do
    begin
        for j:=1 to n do
            begin
                a[i,j]:=-20+random(41);
                write(a[i,j]:5);
            end;
            writeln;
    end;
 
max:=a[i,j];
for i:=1 to n do
    begin
        for j:=1 to n do
            if a[i,j]>max then
                begin
                    max:=a[i,j];
                    x:=i;
                    y:=j;
                end;
    end;
    
writeln;            
writeln(max,'[',x,',',y,'] - максимальный элемент');
writeln;
    
for i:=x to n-1 do
    for j:=1 to n do
        c[i,j]:=a[i+1,j];
 
for j:=y to n-1 do
    for i:=1 to n do
        c[i,j]:=a[i,j+1];
 
writeln('Массив C:');
    for i:=1 to n-1 do
        begin
            for j:=1 to n-1 do
                write(c[i,j]:5);
                writeln;
        end;
 
writeln;    
write('Нажмите любую клавишу для завершения...');
readkey;
end.

Program mas;
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of byte; i,j,x,y,max: byte;
Begin
Clrscr;
Randomize;
Writeln('   Исходный массив: ',^j);
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(90)+10;
Write(a[i,j]:4);
end;
Writeln;
end;
max:=a[1,1];
For i:=1 to n do
For j:=1 to n do
If a[i,j]>max then
begin
max:=a[i,j];
x:=i;
y:=j;
end;
Writeln(^j,'Максимальный элемент ',max,' находится в ',x,'-ой строке, ',y,'-ом столбце',^j,^j);
For i:=x to n-1 do
For j:=1 to n do
a[i,j]:=a[i+1,j];
For i:=1 to n do
For j:=y to n-1 do
a[i,j]:=a[i,j+1];
For i:=1 to n-1 do
begin
For j:=1 to n-1 do
Write(a[i,j]:4);
Writeln;
end;
readkey;
End.

program a11;
uses crt;
const n=5;
var a,c:array[1..n,1..n] of integer;
    i,j,imx,jmx,k,m:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)+10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
jmx:=1;imx:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>a[imx,jmx] then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный элемент a[',imx,',',jmx,']=',a[imx,jmx]);
i:=1;
k:=0;
while i<=n do
 begin
  if i<>imx then
   begin
    k:=k+1;
    j:=1;
    m:=0;
    while j<=n do
     begin
      if j<>jmx then
       begin
        m:=m+1;
        c[k,m]:=a[i,j];
       end;
      j:=j+1;
     end;
   end;
  i:=i+1;
 end;
writeln('Матрица C:');
for i:=1 to k do
 begin
  for j:=1 to m do
  write(c[i,j]:4);
  writeln;
 end;
readln
end.