Ввести с клавиатуры массив С из 10 элементов,найти наибольший элемент массива.
СРОЧНО!!!

var

i, max:integer;

c: array[1..10] of integer;

begin

for i:=1 to 10 do

read(c[i]);

max:=c[1];

for i:=2 to 10 do

if (c[i]>max) then max:=c[i];

write(max);

end.