Написать программу на языке паскаль для решения следующей : запросить через цикл ввод 14 чисел и среди них найти наибольшее (вывести его на экран)

Var
a:array[1..14] of integer;
max,i:integer;
begin
write('Введите элементы массива - ');
for i:=1 to 14 do
 read(a[i]);
max:=a[1];
for i:=1 to 14 do
 begin
  if a[i]>max then max:=a[i];
 end;
writeln('Наибольшое значение в массиве имеет число - ',max);
end.