program lb8;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var f, g: text;
  s: string;
  n, j, i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  {$I-}
  assign(f, 'file.txt');
  assign(g, 'fileg.txt');
  reset(f);
  rewrite(g);
  n:=0;
  while not EOln(f) do
  begin
    n:=n+1;
    readln(f,s);
  end;

  for i:=1 to n-1 do begin
    for j:=1 to n-i-1 do begin
      readln(f,S);
    end;
    writeln(g,S);
  end;

  write('open file');
  closefile(f);
  closefile(g);
  {$I+}
readln;
end.