program loe_ja_kirjuta;
var
 s: string;
 f: text;
 i, n: integer;

procedure ava_fail;
begin
 {$I-}
 assign(f, s);
 reset(f);
 {$I+}
 if IOResult<>0 then
 begin
  writeln('Fail ',s,' puudub!');
  halt(1);
 end;
end;


begin
 writeln('Kirjuta failinimi, mida soovid lugeda!');
 readln(s);
 ava_fail;

 i:=1;
 while not eof(f) do
 begin
  readln(f, s);
  writeln(i,'. ',s);
  i:=i+1;
 end;

 append(f);
 Writeln('Mitu nime soovid ise juurde kirjutada?');
 readln(n);
 for i:=i to i+n-1 do
 begin
  write(i,'. '); readln(s);
  writeln(f, s);
 end;
 close(f);
end.