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

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

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

type
  myArr = array[1..7] of integer; 
var
  a: myArr;
  i,max : integer;
  c:boolean;
begin
   for i:=low(a) to high(a) do
   begin
     writeln('vvedite element massiva nomer ', i, ':');  
     readln(a[i]); 
   end;
   max:=a[low(a)];
   writeln();
   writeln(max);
   for i:=low(a) to high(a) do 
     if (a[i]>max ) then 
       max:=a[i];
     writeln('Maksimalnoe = ',max);
   readln();
end.

Вывод консоли:

vvedite element massiva nomer 1:
10
vvedite element massiva nomer 2:
23
vvedite element massiva nomer 3:
4
vvedite element massiva nomer 4:
5
vvedite element massiva nomer 5:
67
vvedite element massiva nomer 6:
8
vvedite element massiva nomer 7:
9

Maksimalnoe = 67