Процедурка поиска в массиве

// поиск max элемента в таблице
uses crt;
const s=50;
Var a:array [1..s] of integer;
     n,i,max,imax:integer;
begin
  write('Введите размерность n= ');
  readln(n);
  Writeln('Введите ',n,' чисел(а)');
  for i:=1 to n do
begin
  write('Введите а(',i,')= ');
  readln(a[i]);
end;
writeln('----------------');
Writeln('Исходная таблица');
for i:=1 to n do begin
    write(a[i],' ');
    writeln;
    end;
    
  max:=a[1]; 
  imax:=1;
  for i:=1 to n do 
  begin
  if a[i]>max then
  begin
    max:=a[i];
    imax:=i;
  end;
  end;
 
Writeln('---------------------------------');
writeln('MAX= ','a[',imax,']= ',max);
writeln('MAX элемент= ',max);
writeln('Индекс MAX элемента= ',imax);
readkey;
end.

uses crt;
const s=50;
Type Massiv=array [1..s] of integer;
 
Var a:Massiv;
    n,i,max,imax:integer;
     
procedure MaxEl(Var mas:Massiv);
begin
 max:=a[1];
 imax:=1;
 for i:=1 to n do
 begin
  if mas[i]>max then
  begin
    max:=mas[i];
    imax:=i;
  end;
 end;
end;
 
begin
  write('Ââåäèòå ðàçìåðíîñòü n= ');
  readln(n);
  Writeln('Ââåäèòå ',n,' ÷èñåë(à)');
  for i:=1 to n do
begin
  write('Ââåäèòå à(',i,')= ');
  readln(a[i]);
end;
writeln('----------------');
Writeln('Èñõîäíàÿ òàáëèöà');
for i:=1 to n do
begin
    write(a[i],' ');
    writeln;
    end;
MaxEl(a);
Writeln('---------------------------------');
writeln('MAX= ','a[',imax,']= ',max);
writeln('MAX ýëåìåíò= ',max);
writeln('Èíäåêñ MAX ýëåìåíòà= ',imax);
readkey;
end.

// поиск max элемента в таблице
uses crt;
const s=50;
type mas=array [1..s] of integer;
procedure Max(a:mas;n:integer;var imx,mx:integer);
var i:integer;
begin
mx:=a[1];imx:=1;
for i:=1 to n do
if a[i]>mx then
 begin
  mx:=a[i];
  imx:=i;
 end;
end;
Var a:mas;
    n,i,im,m:integer;
begin
  repeat
  write('Введите размерность до ',s,' n=');
  readln(n);
  until n in [1..s];
  Writeln('Введите ',n,' чисел(а)');
  for i:=1 to n do
   begin
    write('Введите а(',i,')= ');
    readln(a[i]);
   end;
 clrscr;
writeln('----------------');
Writeln('Исходная таблица');
for i:=1 to n do
write(a[i],' ');
writeln;
Max(a,n,im,m);
Writeln('---------------------------------');
writeln('MAX элемент= ',m);
writeln('Индекс MAX элемента= ',im);
readkey;
end.

procedure MaxEl(Var mas:Massiv);
var i:integer;