Пользователь вводит массив из 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.