как удаліть рядок в масиве

[urg]

Задано матрица размерностью 4*5 найти наименьший элемент и удалить строку с наименьшим элементом. первая часть у меня есть

Код: Выделить всё

uses crt;
type
matrix= array [1..4, 1..5] of real;
var
a: matrix;
i, j: integer;
min: real;
l,k: integer;
begin
writeln ('vvedit_elementy_matryci');
for i:= 1 to 4 do
for j:= 1 to 5 do read (a[i,j]);
writeln ('nachalnyi_massiv_:');
for i:=1 to 4 do
begin
for j:=1 to 5 do write (a[i,j]: 4);
writeln;
end;
min:= a[1,1];
l:= 1; k:= 1;
for i:= 1 to 4 do
for j:=1 to 5 do 
if a[i,j] < min then begin min:= a[i,j];
l:= i; k:= j;
writeln; writeln ('naimenshyi element matryci=',min);
end.  

помогите.

[dr.Jekill]

[syntax="pascal"]uses crt;
var a:array [1..4, 1..5] of real;
i,j,iMin: integer;
Min: real;
begin
clrscr;
writeln('Vvodite elementy matrycy: ');
writeln('-------------------------');
for i:=1 to 4 do
begin
writeln('Stroka ',i);
for j:=1 to 5 do
begin
write('[',i,',',j,']: ');
readln(a[i,j]);
end;
end;
clrscr;
writeln('Poluchenyi massiv: ');
min:=a[i,j];
iMin:=1;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
write(a[i,j]:5:2,' ');
if a[i,j]<Min then
begin
Min:=a[i,j];
iMin:=i;
end;
end;
writeln;
end;
writeln;
write('Naimenshyi element matrycy: ',Min:5:2);
writeln(' ',iMin,' stroka.');
writeln;
if iMin<4 then
for i:=iMin to 3 do
for j:=1 to 5 do a[i,j]:=a[i+1,j];
for i:=1 to 3 do
begin
for j:=1 to 5 do write(a[i,j]:5:2,' ');
writeln;
end;
writeln;
write('Press any key to EXIT...');
readkey;
end.[/syntax]