Написать подпрограмму-процедуру поиска максимального элемента в массиве

[Noxil]

Есть задачка: Написать подпрограмму-процедуру поиска максимального элемента в массиве (считать, что такой элемент в массиве один). Написать программу, нахождения произведения максимальных элементов двух массивов.

Я прогу написал, но она работает не так, как надо. Неправильно находит максимальные элементы массивов.
Гляньте, что не так.

var
 a,b: array [1..10] of integer;
 m,q,w,n,i: integer;
function maxel(c:array of integer;n:integer):integer;
 var
 max,i:integer;
begin
  max:=c[1];
  for i:=1 to n do
   begin
   if c[i]>max then
   max:=c[i];

   end;
 maxel:=max;
end; 

begin
write('Введите длинну массивов a и b: ');
readln(m,n);
randomize;
for i:=1 to m do
  begin
  a[i]:=random(20)-20;
  write(a[i]:4);
  end;
writeln;
for i:=1 to n do
 begin
 b[i]:=random(20)-20;
 write(b[i]:4);
 end;
writeln;
q:=maxel(a,m);
w:=maxel(b,n);
writeln('Произведение max элементов массивов а и b: ',q*w);
readln;
end.

[alex_fcsm]

function maxel(c:array of integer;n:integer):integer;
 var
 max,i:integer;
begin
  max:=c[0];
  for i:=1 to n-1 do
   begin
   if c[i]>max then
   max:=c[i];

   end;
 maxel:=max;
end;

[Noxil]

Спасибо! все работает

[puporev]

Есть задачка: Написать подпрограмму-процедуру

А Вы написали функцию.