по алфавиту сравниваем два списка где есть фамилия в двух файлах записываем в третий
var
a,b,c,d: integer;
g,h,l:string;
prad,pr,rezult: text;
begin
assign (prad, 'matematika.txt');
assign (pr, 'informatika.txt');
assign(rezult,'rezultatai.txt');
reset (prad);
reset(pr);
rewrite (rezult);
readln (prad, a);
readln(pr,b);
for c:= 1 to a do
for d:=1 to b do
begin
readln(prad,g);
readln(pr,h);
if g=h then begin l:=h; writeln (rezult, l); end; end;
close (prad);
close(pr);
close (rezult)
end.
плохо сравнивает фамилии те фамилии которые идут по порядку ана записывает а те которые непорядку пропускает