ПОЖАЛУЙСТА СРОЧНО!!!!!НОМЕР 5 а если нет то 6 программу и алгоритм. ПАСКАЛЬ

var 
com:array[1..1000] of integer;
i,max :integer;
beginmax:=0;
for i:=1 to 10 do begin readln(com[i]);
if max<com[i] then max:=com[i];
end;
writeln('max=',max);
end.


алгоритм 

вводим числа в массив 
переменную max приравниваем 0 
перебираем все числа в массиве через цикл
цикл 
нач.
если число com[i]  меньше max то max равен com[i]

кон.
выводим макс