3

whłłe not eof(f) do begin

readlnff, a.Nr, a.X> | write(g,a);

:■ end;

close(g); close(f); g end;

BEGIN

11 przepiszl(h, Nr, X; Y);:

I END.

! program zad2;

type współrzędne = record Nrrword; Z:integer;end; var

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

procedurę przepisz2(var b: współrzędne; var Nrrword; var Z: integer); begin

assign(g, 'z.dat'); reset(g); assignff, 'z.txt'); rewrite(f);

while not eof(g) do

begin

read(g,b);

writeln(f, b.Nr, b.z); end;