[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.  

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