Найти минимальний елемент матрици 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;