4

close(f);

close(g);

end;

BEGIN

przepisz2(b, Nr, Z);

END.

Drugi termin

zadanie 1

type współrzędne = record Nr:word; X,Y:integer; end; var f:text;

g: file of współrzędne; a: współrzędne;

procedurę przepisz 1 (var a: współrzędne; var Nrtword; X,Y; integer); BEGIN

Assign (f, 'xy.txt'); reset (f);

assign (g, 'xy.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);

przepisz 1 ( Nr, X,Y,); end.