Дан массив. Найти максимальный элемент.

Вот на Паскале:

uses crt;

var mas:array [1 ... 100] of integer;

max, i, n:integer;

begin

clrscr;

writeln (' vvedite kol-vo cifr ') ;

readln (n) ;

for i:=1 to n do begin

write ('vvedite ', i, ' Chislo ') ;

readln (mas[i]) ;

end;

max:=mas[i];

for i:=2 to n do

if mas[i]>max then max:=mas[i];

writeln ('max chislo: ', max) ;

readln;

end.