pascal: как зациклить?

[mad_ded]

Всем привет!
пишу небольшую программу для учета входящих и уходящих (просто так не для чего). есть одна проблема: после того как введено первое значение x (к парраметру kol:=x+kol) выводится результат и после нажатия enter программа закрывается. как сделать чтобы после этого можно было дальше вводить значения?

program ychet;
uses
  crt;
var
  x,kol,max,ost:integer;
begin
  clrscr;
  write('учет пришедших\ушедших: ');
  readln(x);
  max:=50;
  if kol<50
   then
    begin
     kol:=kol+x;
     ost:=max-kol;
     write('текущее кол-во: ', kol);
     write('  осталось свободных мест: ', ost);
     end
   else
     write('мест нет!');
  readln;
end.

[Mad_Cat]

repeat
{.....}
Writeln('Continue? y/n');
readln(c);
until c='n';

[mad_ded]

mad_cat спасибо за ответ. один вопрос {....} вместо точек должен быть сам код от begin до end. ?

[Alex11223]

Нет конечно.
После end. не может быть ничего

{.....}
begin
{.....}
repeat
{.....}
Writeln('Continue? y/n');
readln(c);
until c='n';
{.....}
end.

{....} вместо точек

Впрочем если именно вместо точек, то там может быть что угодно потому что символы { и } в языке Паскаль означают соответственно начало и конец блочного комментария (если не Турбо Паскаль, то есть еще // для комментирования одной строки).

[mad_ded]

ясно вроде подставил ток видимо не правильно)))
хочу чтобы не спрашивалось продолжит или нет

program ychet;
uses
  crt;
var
  x,kol,max,ost:integer;
begin
  clrscr;
  write('учет пришедших\ушедших: ');
  readln(x);
  max:=50;
  if kol<50
   then
    begin
 repeat
     kol:=kol+x;
     ost:=max-kol;
     write('текущее кол-во: ', kol);
     write('  осталось свободных мест: ', ost);
     end
 until
   else
     write('мест нет!');
  readln;
end.

[Alex11223]

дык после until пишется условие, при котором цикл repeat завершится т.е. в примере выше когда с = 'n'. http://www.cyberguru.ru/programming/...on-page10.html