uses crt;
var
 plik:text;
 linia:string;
 nowaOsoba:string;
begin
 clrscr;
 assign(plik, 'C:\imiona.txt');
 reset(plik);
 repeat
  readln(plik, linia);
  writeln(linia);
 until eof(plik);

 Writeln('Dodaj nowa osobe: ');
 readln(nowaOsoba);
 writeln('Dodano nowa osobe: ', nowaOsoba);


 append(plik);
 Writeln(plik, nowaOsoba);
 close(plik);
 readkey;
end.