Найти минимальний елемент матрици A(m x n).

[SashOK1991]

Здравстуйте.Помогите пожалуйста с программой:

Найти минимальний елемент матрици A(m x n).

Вот я что то пробувал. Помогите довести до конца.

Program lab_15;
Uses Crt;
const n=4; m=4;
var a:array[1..m,1..n]of real; i,j,k:integer;
begin
window(3,2,65,25);
Textcolor(5);TextBackground(9);
clrscr;
writeln('Laboratorna robota');
writeln('Znaytu kilkist elementiv matruci rivnuh 0');
writeln('vukonav stydent hrypu KA-11');
writeln('Olexsndr');
sound(1000);delay(1000);nosound;
window(30,5,78,24);
textcolor(black);textbackground(red );
clrscr;
writeln('vvedit n ta m');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;

[ROMA2PVT]

Uses Crt;
var
  a:array [1..20,1..20] of integer;
i,j,n,m,min,imin,jmin:integer;
begin
randomize;
clrscr;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:2,' ');
end;
writeln;
end;
writeln;
min:=a[1,1];
imin:=1;
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
writeln;
writeln('MIN[',imin,';',jmin,']:=',min);
readkey;
end.

[SashOK1991]

Очень помогли. Большое спасибо. =)