Подпрограммы: определить максимальные элементы в векторах

uses crt;
const nmax=10;
type mas=array[1..nmax] of integer;
procedure MaxMin(m:mas;n:integer; var mx,imx,mn,imn:integer);
var i:integer;
begin
mx:=m[1];imx:=1;mn:=m[1];imn:=1;
for i:=1 to n do
 begin
  if m[i]>mx then
   begin
    mx:=m[i];
    imx:=i;
   end;
  if m[i]<mn then
   begin
    mn:=m[i];
    imn:=i;
   end;
 end;
writeln('Max=',mx,'  index=',imx,'  Min=',mn,'  index=',imn);
end;
var a,b:mas;
    i,imax,imin,min,max:integer;
begin
clrscr;
randomize;
writeln('Исходный массив A:');
for i:=1 to 8 do
 begin
  a[i]:=random(10)+10;
  write(a[i],' ');
 end;
writeln;
writeln;
MaxMin(a,8,max,imax,min,imin);
writeln;
writeln('Исходный массив B:');
for i:=1 to 10 do
 begin
  b[i]:=random(10)+10;
  write(b[i],' ');
 end;
writeln;
writeln;
MaxMin(b,10,max,imax,min,imin);
readln
end.