Задача на языке паскаль по разделу процедуры и функции помогите

[Runner]

В процедурах и функциях в паскале не могу разобраться помогите решить.С подробным разъяснением и (Блок схемой если можно).ЗАРАНЕЕ СПАСИБО!

В двух массивах x длинной m ,и y длинной n,имеется по одному единственному элементу с минимальным значением.Найти номер этих элементов в обоих массивах и вывести на экран величину этих элементов с найденным индексом.

Примечание:
1)Ввод размерности массива и вывод величины наименьшего значения массива производить в основной программе.
2)Сделать все это с помощью процедуры и функции

[ИринаForeve]

Даю набросок может переделает кто в процедуры и функции (спать охота):

program mas;
uses crt;
var
i,m,n,min,min2:integer;
x,y:array[1..100] of integer;
pos1,pos2:integer;
begin
 clrscr;
 write('vvedite razmernost 1go massiva=>');{размерность 1го массива}
 read(m);
 write('vvedite 1j mas => '); {ввод массива}
 for i:=1 to m do read(x[i]);
 write('vvedite razmernost 2go massiva=>'); {размерность 2го массива}
 read(n);
 write('vvedite 2j mas => '); {ввод массива}
 for i:=1 to n do read(y[i]);
 min:=1; {поиск минимума в 1м массиве, эталон минимум = 1}
 for i:=1 to 15 do if (x[i]<min) or (x[i]=min) then
 begin {если найден элемент в массиве<или=эталону}
  min:=x[i]; pos1:=i; {сохрание минимума и его позиции}
 end;
  min2:=1;
 for i:=1 to 15 do if (y[i]<min2) or (y[i]=min2) then
 begin
  min2:=y[i]; pos2:=i;
 end;
 writeln;
 writeln('v massiv 1 min=',min,' v pozicii =',pos1);{вывод 1го миним, позиции}
 write('v massiv 2 min=',min2,' v pozicii =',pos2);{вывод 1го миним, позиции}
 readkey;
end.

Если не пригодится, жалко будет