zadanie 3

program zad3;
{$APPTYPE CONSOLE}
uses　

SysUtils;
type plaskie=record
Nr:word;
x,y:real;
end;

type pionowe=record
Nr:word;
z:real;
end;

var
f:text;
g:file of pionowe;
a: plaskie;
b:pionowe;
Nr:word;
znalazlem:boolean;
x,y,z:real;

procedure wypisz (var a:plaskie; var b:pionowe; var Nr:word; var x,y,z:real);
begin
assign(f, 'xy.txt');
reset(f);
assign(g, 'z.dat');
while not Eof(f) do
begin
readln(f, a.Nr, a.x, a.y);
znalazlem:=false;
reset(g);
while not Eof(g) do
begin
read(g, b);
if a.Nr = b.Nr then
begin
znalazlem:=true;
writeln(a.Nr, a.x:8:2, a.y:8:2, b.z:8:2);
end;
end;
if znalazlem = false then
writeln(a.Nr, a.x:8:2, a.y:8:2, '　 -　 ');
end;
close(f);
close(g);
end;
BEGIN
wypisz(a,b,Nr,x,y,z);
readln;
END.