Поиск двух MAX в одномерном массиве

[ljrerby]

Поиск двух MAX в одномерном массиве

Вообщем написал задачу, все вроде ничего, но вот первый МАХ считает, а вот 2й никак. Вид программы должен остаться такой же.
Я считаю, что недочет идет во 2м IF'e

program qq;
uses crt;
const N = 5;
var a: array [1..N] of integer;
i, Max, Maxx: integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to N do begin
a := random(20) -10;
write(a:4);
end;
Max := a[1];
for i:=2 to N do begin
if a > Max then Max :=a else
if (Max>Maxx) and (maxx>a) then maxx:=a; end; <<<Вот здесь
writeln;
writeln(max:4, maxx:4);
end.

 

[Vladimir_S]

Сформулируйте внятно задачу - о каких двух максимумах идет речь? О максимальном числе и следующим за ним по величине?

 

[ljrerby]

Да, именно так
Пример. Исходный массив: -5 0 6 -8 1
Должно выйти 6 1

 

[Vladimir_S]

Да, именно так
Пример. Исходный массив: -5 0 6 -8 1
Должно выйти 6 1

Тогда например так:

uses crt;
const
 N = 5;
var
 a: array [1..N] of integer;
 i, Max, Maxx: integer;
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to N do
  begin
   a[i] := random(20) -10;
   write(a[i]:4);
  end;
 Max := a[1];
 for i:=2 to N do
  if a[i]>Max then Max:=a[i];
 Maxx:=-12;
 for i:=1 to N do
  if (a[i]>Maxx) and (a[i]<Max) then Maxx:=a[i];
 writeln;
 writeln(max:4, maxx:4);
 readln;
end.

 

[ljrerby]

спасибо, все получилось