Помогите решить процедуру(Паскаль)

[Panda196]

Для полусения результата составить функцию,исходными данными которой являются два массива Х1,Х2,...Хn и Y1,Y2,...,Yn c заданным числом n элементов (или один из них) или матрица A из n строк и n столбцов. Кроме этого, разработать программу для отладки составленной функции.

Наименьший элемент в совокупности элементов двух ассивов Х1,Х2,...,Хn;
Y1,Y2,...,Yn.

[alex_fcsm]

Найти наименьший элемент из Х и Y?

[Panda196]

тут как бы надо из 2-ух массивов найти наименьший элемент . Главное чтобы он из X и Y был наименьший)) Без разницы из какого)

[Lemo]

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var i,j :integer;
      min:byte;
 A:array [1..4, 1..4] of integer;
 begin
 randomize;
 for i:=1 to 4 do begin
 for j:=1 to 4 do begin
 A[i,j]:=random(10);
 write (a[i,j]:2, ' ');
 end;
 writeln;
 end;

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

 readln ;
 end.

[Panda196]

спасибо бльшое