WHY TIme limit  on 1 test??????????????????????????
program z1027;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s,s1:string;
    flag,flag1,i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  {$IFNDEF ONLINE_JUDGE}
    assign(input, 'input.txt');
    reset(input);
    assign(output, 'output.txt');
    rewrite(output);
  {$ENDIF}
  while not seekeof do
  Begin
    read(s1);
    s:=s+s1;
  End;
  .....
  .....
  {$IFNDEF ONLINE_JUDGE}
    close(input);
    close(output);
  {$ENDIF}
end.

Edited by author 01.03.2007 12:38

What does your code fragment mean? "Time Limit" error means that your algo use too much time. Try to find a better algo.

P.S. Sorry for my English.