Pascal. Надеюсь здесь мне помогут с подпрограммой?

[зверрюга]

Здравствуйте, умные люди! Помогите, пожалуйста:
Дано задание: Найти минимальный и максимальный элемент А(4,3), B(4,4)
Больше никаких данных. Задание дали после тем: Подпрограмма процедура и Двумерные массивы.
Спасибо, если кто-нибудь подскажет как написать программу.

[Qiker]

зверрюга, пробуем так

program hh;
uses crt;
var
a:array[1..4,1..3] of integer;
b:array[1..4,1..4] of integer;
f,g,i,j,min,min1,max1,max:integer;
begin
clrscr;
write('massiv a(i,j)');
writeln;
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(50)-10;
write(a[i,j]:3);
end;
writeln;
end;
write('massiv b(f,g)');
writeln;
for f:=1 to 4 do
begin
for g:=1 to 4 do
begin
b[f,g]:=random(50)-10;
write(b[f,g]:3);
end;
writeln;
end;
writeln;
begin
max:=a[1,1];
for i:=1 to 4 do  begin
  for j:=1 to 3 do
  if max<a[i,j] then
  max:=a[i,j];

  end;
  write('max=',max);
end;
writeln;
begin
max1:=b[1,1];
for f:=1 to 4 do  begin
  for g:=1 to 4 do
  if max1<b[f,g] then
  max1:=b[f,g];

  end;
  write('max1=',max1);
end;
writeln;
begin
min:=a[1,1];
for i:=1 to 4 do  begin
  for j:=1 to 3 do
  if min>a[i,j] then
  min:=a[i,j];

  end;
  write('min=',min);
end;
writeln;
begin
min1:=b[1,1];
for f:=1 to 4 do  begin
  for g:=1 to 4 do
  if min1>b[f,g] then
  min1:=b[f,g];

  end;
  write('min1=',min1);
end;
writeln;
writeln('min,max- a[i,j]');
write('min1,max1- b[f,g]');
end.

[Reazer]

Здравствуй, Зверрюга!
Ещё требуется помощь?))) Уточни пожалуйста такую деталь: массивы из случайных чисел, задаются из файла или с клавиатуры?