Выбор элементов Паскаля

[~AngelOK~]

Помогите, плиз!! Задача вроде короткая, но такая муть!! Парюсь над ней уже несколько дней.
В массиве найти два наибольших элемента, вывести их
Вот такая короткая задача но никак не могу решить. Ппц...

[Greblin]

program twomax;

var a: array[1..10] of integer;
    first, second: integer;
    i: integer;

begin
for i := 1 to 10 do
  read(a[i]);
if (a[1] > a[2]) then
  begin
  first := a[1];
  second := a[2]
  end
else
  begin
  first := a[2];
  second := a[1]
  end;
for i := 3 to 10 do
  if a[i] > second then
    if a[i] > first then
      begin
      second := first;
      first := a[i]
      end
    else
      second := a[i];
writeln(first,' ',second);
end.

[puporev]

Это приведен вариант при вводе данных. Если массив задан, например рандомно, то просто его отсортировать по убыванию любым методом, а потом вывести первый и второй элементы.

[~AngelOK~]

Массив должен быть задан рандомно. А как отсортировать элементы в порядке убывания? Я просто не знаю. Какая-то команда есть?

[-=<[Evklidd]>=-]

Есть такая команда: "ручками" называется . Поищите в гугле "алгоритмы сортировки массивов" - найдете много полезного