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

На паскале. 

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