Пользователь вводит массив из 10 чисел, надо вывести максимальное

 const n=5;var a:array[1..n]of integer; c,i:integer;begin  for i:=1 to n do    begin     read(a[i]);     if i=1 then       c:=a[i];     if a[i]>c then       c:=a[i];   end; writeln(c);end.