Это обычный режим.
_________________
For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end; вроде так
Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.