Создать файл, содержащий только те числа, которые не содержатся одновременно в двух последовательностях - Turbo Pascal

program fail;
 
uses crt;
 
type
svedenia=record
familia:string[20];
marka:string[20];
nomer:char;
place:char;
end;
 
var
s:svedenia;
f:file of svedenia;
n:integer;
kol:integer;
i:integer;
mark:string;
nomer:char;
place:char;
mar:string;
begin
clrscr;
assign(f, 'svedenia.txt');
repeat
writeln('vvod svedenia odnogo garazha');
writeln('1 - zapolnenie faila svedenia ');
writeln('2 - vivod na ekran svedenia zaprashivaemoi marki');
writeln('3 - vixod');
 
readln(n);
case n of
1:
begin
rewrite(f);
writeln('vvedite kol-vo avtovladelcev');
readln(kol);
for i := 1 to kol do
begin
writeln('vvod familia ', i, ' avtovladelca');
readln(s.familia);
writeln('vvod marka avto',mark );
readln(s.marka);
writeln('vvod registracionni nomer', nomer );
readln(s.nomer);
writeln('vvod nomer mesta',place);
readln(s.place);
write(f,s);
 
end;
close(f);
writeln('fail cozdan');
end;
 
2:
begin
reset(f);
writeln('svedenia o vladelcax');
writeln('Vvedite marku avto: ');
readln(mar);
writeln;
s.marka := '';
while not EOF(f) do
begin
read(f, s);
if s.marka = mar then
writeln(s.marka, ' ', s.nomer, ' ', s.place, ' ',s.familia);
end;
close(f);
end;
 
 
end;