Урок 15 (Решенная задача номер 2)

Урок 15 (Решенная задача номер 2)

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

var a : array[1..7] of integer;
    x,c,i: integer;
begin
  for i:= 1 to 7 do
   begin
     writeln('vvedite znahenie massiva');
     readln(a[i]);
      if (i = 1) then
         x := a[1];
         c := a[1]; 
      if (a[i] > x) then
         x := a[i];
   end;
  i := 1;
  for i:= 1 to 7 do
   if (a[i] > c) and (a[i] <> x) then
     c := a[i];
  writeln(x,' ', c);
end.