Втом, что надо в последовательности найти два значения. они могут быть разными в зависимости от входных данных. например, числа 12 15 5 7 23 7. какие два наибольших значения- 23 и 15. 90

Var a:array[1..10] of integer;
i,k,j:integer;
begin
write ('Числа: ');
for i:=1 to 10 do
begin
a[i]:=random(51);
write (a[i],' ');
end;
for i := 1 to i-1 do
for j:=1 to 10-i do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
WRITELN;
write ('Два наибольших значения: ',a[10],' и ',a[9]);
end.

Программа без использования массива:
var
  i, n, a, max, max2: integer;
begin
  write('Введите количество чисел: ');
  read(n);
  write('Введите числа: ');
  for i := 1 to n do
  begin
    read(a);
    if a > max then
    begin
      max2 := max;
      max := a;
    end;
  end;
  writeln('Два наибольших значения - ', max2, ' и ', max);
end.
Пример работы программы:
Введите количество чисел: 6
Введите числа: 12 15 5 7 23 7
Два наибольших значения - 15 и 23