Даны массивы целых чисел М(10), К(10) и Р(10). Определить в каком массиве содержится элемент с наименьшим значением — Pascal(Паскаль)

var mas:array[1..60] of integer; i,j,m,pos:byte;max,mm:integer;
function f_max(n:byte; mas:array[1..60] of integer):integer;
var i:byte; max:integer;
begin
  max:=mas[1];
  for i:=2 to n do
  if mas[i]>max then max:=mas[i];
  f_max:=max;
end;
begin
  for i:=1 to 3 do
  begin
    for j:=1 to 10 do
    begin
      writeln('Введите ',j,' элемент ',i,' массива');
      readln(mas[j]);
    end;
    mm:=f_max(10,mas);
    if i=1 then begin max:=mm;pos:=1;end;
           else if mm>max then begin max:=mm;pos:=i;end;
  end;
  writeln('Максимальный элемент- ',max,'  в ',pos,' массиве');
end.