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

Вот на Паскале:
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.