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

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

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

program u15z4;
type
  myArr=array [1..7] of integer;
var a: myArr;
    i,b: integer;

begin
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite element massiva nomer ', i, ':');
    readln(a[i]);
    if (a[i]>b) then
      b:=a[i];
  end;
  write('max = ',b);
  readln();
end.