Pascal ve Matrisler Hakkında?

Arkadaşlar merhaba sdn de programlama bölümünün açıldığına sevindim:) umarım soruma cevap verebilcek biri çıkar...

20 satır ve 20 sütunluk bir matrisin her satırının minumumu bulan bir program lazım pascal ile yazılmış. mümkünse procedures veya functions kullanılsın ödevim bu ben bişiler karaladım yazdım ama. çıkamadım işin içinden. bilenler varsa yardım ederlerse çok makbule geçer.

ben aşağıdakilerle sanırım her satırın minumumunu değilde son girileni buldum

program Array2D;
const M=20; N=20;
Type Tarray=Array[1..M, 1..N] of real;
var
A:Tarray;
i,j,min:integer;
Procedure inputdata(var A:Tarray);
begin
for i:=1 to M do
for j:=1 to N do
begin
write('enter value ',i,',',j,':');
read(a[i,j]);
end;
writeln;
end;
procedure outputdata(A:Tarray);
begin
for i:=1 to M do
begin
for j:=1 to N do
if A[i,j]<min then;
begin;
end;
write(A[i,j]:10:2);
writeln;
end;
writeln;
end;
procedure calculatedatainput(A:Tarray);
begin
end;
procedure screenoutputdata;
begin
inputdata(a);
outputdata(a);
end;
begin
screenoutputdata;
readkey;
end.