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

max[0] := a[0];
max[1] := a[1];
ищи в цикле макс элемент
  при нахождении такового: 
    max[1] := max[0];
    max[0] := a[i];

Боюсь, Шека, это не прокатит.. Рассмотри вот такую последовательность, например:

3 0 1 1 1

Да, протупил. Тогда как-то так

max[0] := a[word(a[0] < a[1])];
max[1] := a[word(a[0] > a[1])];
for i := 2 to n-1 do
  if a[i] > max[1] then 
    if a[i] > max[0] then 
    begin
      max[1] := max[0];
      max[0] := a[i];
    else 
      max[1] := a[i];