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

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

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

var
  a, i:integer;
  m: array [1..7] of integer;
begin
  for i:=low(m) to high(m) do     // обходим массив через цикл для инициализации
  begin
    write('Введите число: ');
    readln (m[i]);
  end;
  for i:=low(m) to high(m)-1 do // цикл для сравнения и перестановки каждых двух соседних чисел. в конце цикла наибольшее будет в последнем элементе
    if (m[i] > m [i+1]) then    // если число слева больше, чем число справа
    begin
      a:= m[i+1];               // записываем число справа (меньшее) в переменную
      m[i+1]:= m[i];            // числу справа присваиваем значение числа слева (большее значение)
      m[i]:= a;                 // числу слева присваиваем меньшее значение (то, что раньше было числом слева)
    end;                        // в итоге два числа меняются местами, слева - меньшее, справа - большее
  write(m[7]);                  // выводим последний элемент массива
  readln ();
end. 

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

Введите число: 7
Введите число: 43
Введите число: 5
Введите число: 22
Введите число: 5
Введите число: 6
Введите число: 33
43