Тема: Свободный практикум

если я верно понял, то переменная одна, а строк можно сколько душе угодно?

Код:

Var a:Integer;
    s:String;
Begin
a:=1;
 While a<>0 do
  begin
   Read(a);   
   s:=s+IntToStr(a);
  end;
 Writeln(s);
 For a:=Length(s) downto 1 do
  begin
   Write(s[a]);
  end;
End.