Дан массив A(4). Найти максимальный элемент массива и его порядковый номер.

На паскале. 

const n=4;
var A:array [1..n] of real;
i,max,j:integer;
maxs:real;
begin
for i:= 1 to n do 
readln(A[i]);
for i:= 1 to n do
 for j:= 1 to n do
if A[i]>A[j] then
begin
maxs:=A[i];
max:=i;
end;
writeln(maxs,' ',max)
end.