Задание 4 Урок 15

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

type arr = array[1..7] of integer;
var first_array : arr;

procedure  user_array(var f_array: arr);
var i,  user_value: integer;
begin
  for i := low(f_array) to high(f_array) do
    begin
      write('Введите значение №', i, ' и нажмите ENTER: ');
      readln(user_value);
      f_array[i] := user_value;
    end;
end;

procedure  comparison(f_array: arr);
var g,max,max_s : integer;
begin
  max := f_array[1];
  max_s := f_array[2];
  for g := low(f_array) to high(f_array) do
    if ((f_array[g] > max_s) and (f_array[g] > max)) then
      max := f_array[g]
    else
      if ((f_array[g] > max_s) and (f_array[g] < max)) then
        max_s := f_array[g];
  writeln('Максимум 1 = ', max);
  writeln('Максимум 2 = ', max_s);
end;

begin
  user_array(first_array);
  comparison(first_array);
  readln();
end.

консоль:

Введите значение №1 и нажмите ENTER: -1
Введите значение №2 и нажмите ENTER: 0
Введите значение №3 и нажмите ENTER: 10
Введите значение №4 и нажмите ENTER: -5
Введите значение №5 и нажмите ENTER: 35
Введите значение №6 и нажмите ENTER: 12
Введите значение №7 и нажмите ENTER: -5
Максимум 1 = 35
Максимум 2 = 12