Дан целочисленный массив A. Найти в нем два наименьших элемента. ПАСКАЛЬ!!!!

Кто не знает, #13#10 - это аналог отдельного оператора Writeln; - смена строки.

Смысл решение - однопроходный алгоритм, т.е. все делается за единственный цикл.

const  n=15;var  a:array[1..n] of integer;  i,t,min1,min2:integer;begin  Write('Исходный массив: ');  min1:=1000; min2:=min1;  for i:=1 to n do  begin    t:=Random(50); a[i]:=t;    if min1>t then    begin min2:=min1; min1:=t end    else if min2>t then min2:=t;    Write(t:3)  end;  Writeln(#13#10,'Найденные минимумы: ',min1:3,min2:3);end.Тестовое решение:Исходный массив:  34  8 44 37 37  2 40 46  8 35 44 32  5 14 40Найденные минимумы:   2  5