Составить программу нахождения наибольшего числа из введенных с клавиатуры. в паскале с цикла.

Var max,n,c,i:integer;
begin
readln(n); //сколько чисел будет всего введено
readln(c);
max:=c;
for i:=1 to n-1 do begin
   readln(c);
   if max<c then max:=c;
   end;
writeln(max);
end.
//это один из самых производительных алгоритмов, без лишних записей в массив и траты памяти