В чем ошибка?

[delphyok]

Здравствуйте!

Начал тут изучать паскаль недавно, очень нужен по работе. Хотел сделать свою первую прогу на нем, чтобы потренироваться, но так и не закончил т.к. столкнулся с проблемой, которую никак не могу решить, сколько не думал. Вот есть код:

program my;

const
     p = 1000;

var
   a, n, state : integer;
   x : array[1..p] of integer;
   ch : char;

begin

 repeat
     writeln('Введите колличество частей: ');
     readln(n);
     for a:= 1 to n do
      begin
         write(a,'-я: ');
         read(x[a]);
      end;
      writeln('Значения введеных вами частей: ');
      for a := 1 to n do
       begin
            writeln(a,'-я: ',x[a]);
       end;
   write('Чтобы выйти нажмите "y"; чтобы продолжить, любую другую клавишу:');
   readln(ch);

   write(ord(ch));
 until ord(ch) = 121;

end.

По сценарию в конце прога должна запрашивать введения какого либо символа. Если введеный символ - "y"(код 121), то программа дожна завершаться, если другой символ, то цикл повторяется снова. Проблема заключается в том, что почему-то она не понимает введеного символа и на автомате все время пишет 13, т.е. как будто я ввожу "enter" . Кто знает, подскажите пожалуйста в чем проблема, почему так происходит? А если в четвертой строчке снизу вместо "readln(ch);" поставить просто "read(ch);", то она вообще ничего не запрашивает, пишет, что введеный код - 13, и начинает цикл заново, хотя я ничего не вводил. Что за ерунда... Помогите, двигаться дальше в обучении бессмысленно, если таких мелочах разобраться не можешь

[Sazary]

После

program my;

допишите

uses crt;

Таким образом подключаем эту библиотеку.
А вместо

readln(ch);

напишите

ch := readkey;

эта функция возвращает код нажатой клавиши.

[puporev]

Вообще концовка будет:

write('Чтобы выйти нажмите "y"; чтобы продолжить, любую другую клавишу:');
 ch:=readkey;
until ch=#121;
end.

[capta1n]

можно так

until readkey=#121

[delphyok]

Спасибо всем ответившим, сделал как посоветовали, все отлично . Правда я так и не понял, в чем же заключалась ошибка в моем варианте . Ведь разбирал же другие варианты из книги, там почему-то все работает, здесь же пишешь точно такую же оконцовку - не пашет... Ладно, может потом узнаю

[alex_fcsm]

readln(ch);

   write(ord(ch));
 until ord(ch) = 121;

Если пишет 13 значит вы нажали Enter. Концовка вполне нормальная только write(ord(ch)) нужно убрать

[NSvirus]

until ch='y' , где y - string'овая переменная
Ошибочка, ch-стринг

Для редактирования своих постов есть кнопка "Правка".