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

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.

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Del(var a:mas;k:integer;var n:integer);
var i,j:integer;
begin
i:=1;
while i<=n do
if a[i]=k then
 begin
  if i=n then a[n]:=0
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    a[n]:=0;
   end;
 end
else i:=i+1;
end;
var a:mas;
    n,i,mx,mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)+1;{чтобы не было 0, иначе зависнет}
  write(a[i]:3);
 end;
writeln;
mn:=a[1];
mx:=a[1];
for i:=1 to n do
 begin
  if a[i]>mx then mx:=a[i];
  if a[i]<mn then mn:=a[i];
 end;
writeln('Минимальный элемент=',mn);
writeln('Максимальный элемент=',mx);
for i:=1 to n do
if(a[i]=mn)or(a[i]=mx) then Del(a,a[i],n);
writeln('Удаление минимальных и максимальных:');
for i:=1 to n do
write(a[i]:3);
readln
end.

for i:=1 to n do
 begin
  a[i]:=random(10)+1;{чтобы не было 0, иначе зависнет}
  write(a[i]:3);
 end;

for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;