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

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

var i,j,max:integer;
  a:array[1..7] of integer;
begin
  for i:=1 to 7 do
  begin
     writeln('Vvedite celoe chislo: ');
     readln(a[i]);
  end;
  max:=a[1];
  for j:=1 to 7 do
    if max<a[j] then max:=a[j];
  writeln('max = ', max);
end.

Консоль:

Vvedite celoe chislo: 
4
Vvedite celoe chislo: 
5
Vvedite celoe chislo: 
7
Vvedite celoe chislo: 
3
Vvedite celoe chislo: 
5
Vvedite celoe chislo: 
4
Vvedite celoe chislo: 
7

max = 7