Числовой массив. Создать процедуру, которая удаляет указанный элемент - Turbo Pascal - Ответ 3056213

uses crt;
VAR a:array[1..100,1..100] of integer;
    max,min,i,j,k,l,n,m,z,x:integer;
    label 1,2;
begin
clrscr;
readln(n,m);
    for i:=1 to n do begin
    for j:=1 to m do begin
write('a[',i,',',j,']=');read(a[i,j]);end;writeln;end;
    for i:=1 to n do begin
    for j:=1 to m do begin
write('',a[i,j]:4);end;writeln;end;
max:=-9999;min:=9999;
    for i:=1 to n do begin
    for j:=1 to m do begin
if a[i,j]<min then begin min:=a[i,j];k:=i;l:=j;end;
if a[i,j]>max then begin max:=a[i,j];x:=i;z:=j;end;end;end;
if k=n then begin a[k,l]:=0;goto 1;end;
    for i:=k to n-1 do begin;
a[i,l]:=a[i+1,l];end;a[n,l]:=0;
if l=z then x:=x-1;
1:if x=n then begin a[x,z]:=0;goto 2;end;
    for i:=x to n-1 do begin
a[i,z]:=a[i+1,z];end;a[n,z]:=0;
2:for i:=1 to n do begin
  for j:=1 to m do begin
write(a[i,j],'');end;writeln;end;
end.