type
  pStr = ^myString;
  myString = string[150];

var
  f: text;
  s: string;
  ch: char;

  words: array[1 .. 1000] of pStr;
  index, i: integer;
begin
  assign(f, '_setr_.txt');
  {$i-} reset(f); {$i-}

  ch := #32; index := 0;
  while not seekeof(f) do begin
    while ch in [#32, #13, #10, #26] do read(f, ch);
    repeat
      s := s + ch;
      read(f, ch);
    until ch in [#32, #13, #10, #26];

    inc(index);
    new(words[index]);
    words[index]^ := s;
    s := ''
  end;
  close(f);

  for i := 1 to index do
    writeln(words[i]^);
end.