задача 3 урок 15

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

program task_3_Lesson_15;
var a: array[1..7] of integer;
  i, b, max: integer;
begin
  for i := 1 to 7 do
    begin
      readln(b);
      a[i] := b;
    end;

  max := low(a);         // предположим что максимум это первый элем.
  for i := 1 to 7 do     // начинаю перебор со второго элемента
    if a[i] >= max then
      max := a[i];
  writeln('Bolshee chislo : ',max);
  readln
end.