max := a[1];
for i := 2 to nn do
if a[i] > max then max := a[i];

for i := 1 to nn do
write(a[i], ' ');

writeln;
writeln('Max = ', max);
readkey;
end.

Источник: