Задание 3 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

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

var i,max:integer;
    a: array [1..3] of integer;
begin
  for i:=low(a) to high(a) do
   begin
     writeln('Enter the number ',(high(a)-i)+1,' more times');
     readln(a[i]);
   end;
  write('They are now in an array. Look: ');
  for i:=low(a) to high(a) do
    write(a[i], ' ');
  writeln();

  for i:=low(a) to high(a) do
    if (a[i] > max) then
      max:= a[i];
   writeln('The lagest number in array is: ', max);
  readln();
end.

//Enter the number 3 more times
//-3
//Enter the number 2 more times
//15
//Enter the number 1 more times
//8
//They are now in an array. Look: -3 15 8
//The lagest number in array is: 15