type wspolrzedne=record
Nr:integer;
X,Y:integer;
end;
var f:text;
g:file of wspolrzedne;
a:wspolrzedne;
b:integer;
begin

assign (f,'plik.txt');
rewrite(f);
a.Nr:=1;
while (a.Nr<>0) do
begin
writeln('Podaj Nr ');
readln(a.Nr);
if (a.Nr)<>0 then
begin
writeln('Podaj X '); readln(a.X);
writeln('Podaj Y '); readln(a.Y);
writeln(f,a.Nr:10,a.X:10,a.Y:10);
end;
end;
close(f);

reset(f);
assign(g,'plik.dat');
rewrite(g);
while not eof(f) do
begin
readln(f,a.Nr,a.X,a.Y);
write(g,a);
end;

close(g);
close(f);
reset(g);
writeln('podaj nr ktory ma podac ');
readln(b);
WHILE NOT EOF(g) do
begin
read(g,a);
if a.Nr=b then
writeln(a.Nr:10,a.X:10,a.Y:10);
end;
close(g);
readln;
end.