Задача 3 Урок 15

Задача 3 Урок 15:

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

var i, max: integer;
a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
   begin
     write('Введите элемент массива номер ', i, ': ');
     readln(a[i]);
   end;
  max := a[1];
  for i:=1 to 7 do
   if a[i] > max then max := a[i];
  write('Максимальный элемент массива равен ', max);
  readln();
end.