Pascal. Задача 8-14

var
  i, max, premax : integer;
  a : array[1..10] of integer = (-2, 4 , 6, -3, 7, 9, 5, 8, 0, -1);
begin
  max := a[1];
  premax := a[1];
  for i := 2 to 10 do begin
    if a[i] > max then max := a[i]
    else if (max = premax) or (a[i] > premax) then premax := a[i];
  end;
  Writeln('Максимальное значение: ', max, ' второе по величине: ', premax);
end.