[T@nker]

как сделать чтобы при завершении последней команды приложение переходило на начало а не закрывалось?????

[iGeTT]

repeat until, goto...

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

var
  c: Char;

begin
  while True do Read(c);
end.

[T@nker]

Код:

Е"ТЛУК program Project1;   
 {$APPTYPE CONSOLE}   
 uses 
   SysUtils;
    var count : integer;  
  comm : String; 
   c : CHAr; 
 begin 
   repeat;  
  write(comm);  
read(comm); 
 if comm = '1' then writeln('string');
  count := count + 1; 
 writeln('3@/7POC '+ inttostr(count) + ' Bb|/7O/\HEH' );
  while True do Read(c); <---этот код
;
    until count >= 0;  
    { TODO -oUser -cConsole Main : Insert code here }
  end.  

куда вставить этот код в приложение стоб он выполнял ещё запросы???

[iGeTT]

я раньше, когда еще будучи зеленым клепал програмки на паскале, делал так:

Код:

repeat
readln(s);
if s = 'blablabla' then begin
*code*
end;
until s = 'exit'