с клавиатуры вводится последовательность чисел заканчивающаяся 0 и число N? вывести все числа последовательности большие N

Program Ksushaa1999PasswordRepeat;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
repeat
    writeln('Введите пароль ');
    readln (vvod);
  until vvod=pass;
writeln('Принято');
end.

Program Ksushaa1999PasswordWhile;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  while vvod<>pass do
    begin
      writeln('Введите пароль ');
      readln (vvod);
    end;
  writeln('Принято');
end.

Program PKsushaa1999PasswordIf;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
label
  metka;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
metka:  writeln('Введите пароль ');
  readln (vvod);
  if vvod<>pass then goto metka;
  writeln('Принято');
end.

По логике так:
Надо расположить по возрастанию, то есть первое меньше второго, второе меньше третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")

1)Начало.
2) Сравни первое и второе числа; если первое больше второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе больше третьего, то поменяй их местами.  
4)Если теперь три числа не расположены в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись к пункту  2).
5)Конец.