CONST
 A:ARRAY[1..4] of REAL=(-5.2 ,8 ,1.3, -6);
 B:ARRAY[1..6] of REAL=(-4.7, -3, 2.6, 7, 13, -1);
TYPE
 AR=ARRAY[1..10] of REAL;
VAR
 C:AR;
 Max_el:REAL;
 Imax,i:INTEGER;

PROCEDURE Find_Max(Af:AR;Nf:INTEGER; var Maxf:REAL; var I_f:INTEGER);
 VAR i:INTEGER;
 BEGIN
  Maxf:=Af[1];
  FOR i:=2 TO Nf DO
    IF Af[i]>Maxf THEN
     BEGIN
       Maxf:=Af[i];
       I_f:=i;
     END;
 END;

BEGIN
 FOR i:=1 TO 4 DO
   C[i]:=A[i];
 Find_Max(C,4,Max_el,Imax);
 Writeln('Max. value in array1 has elem. N ',Imax,' equal to ',Max_el:4:1);
 FOR i:=1 TO 6 DO
   C[i]:=B[i];
 Find_Max(C,6,Max_el,Imax);
 Writeln('Max. value in array2 has elem. N ',Imax,' equal to ',Max_el:4:1);
 ReadLn;
END.