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

procedure degree(k:array of integer); 
var i:integer; max:real; imax:integer;
 begin
 max:=k[1]; 
imax:=1; 
for i:=2 to 5 do
 begin if k[i]>max then max:=k[i]; imax:=i;
 end;
 end;
 var a:array[1..5] of integer;
     b:array[1..5] of integer;
     c:array[1..5] of integer;     
i:integer; 
begin
 randomize;
 for i:=1 to 5 do 
begin 
a[i]:=random(10); 
write(a[i]:2);
 degree(a[i]);
 end;
 writeln;
 for i:=1 to 5 do 
begin 
b[i]:=random(10); 
write(b[i]:2);
 degree(b[i]);
 end; 
writeln;
 for i:=1 to 5 do
 begin
 c[i]:=random(10);
 write(c[i]:2);
 degree(c[i]);
 end;
 writeln(a[i],b[i],c[i]);
 readln; 
end.

uses
    crt;
type
    mas=array[1..100] of integer;
var
   a:array[1..100] of integer;
   b:array[1..100] of integer;
   c:array[1..100] of integer;
   max,maxi,i:integer;
procedure vvod(var d:mas);
begin
     for i:= 1 to 10 do
         d[i]:=random(50);
    for i:= 1 to 10 do
        write(a[i]:4);
end;
procedure max_elem(e:mas; t:byte);
begin
     max:=e[1];
     maxi:=1;
     for i:= 1 to 10 do
         begin
              if e[i]>max then
                 begin
                      max:=e[i];
                      maxi:=i;
                 end;
         end;
writeln('max element v ' , t , ' massive  ', max,' ego index ',maxi);
end;
begin
randomize;
vvod(a);
writeln;
writeln;
vvod(b);
writeln;
writeln;
vvod(c);
writeln;
writeln;
max_elem(a,1);
writeln;
max_elem(b,2);
writeln;
max_elem(c,3);
writeln;
readkey
end.