неполучается сравнить с фаилов, незнаю что надо дописать в программу Опции

[maksimla]

в двух филах указано сперва цифра указывает скоко фамилии в файле а потом идут фамилии
по алфавиту сравниваем два списка где есть фамилия в двух файлах записываем в третий

Код

program Bevarde1;
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.

плохо сравнивает фамилии те фамилии которые идут по порядку ана записывает а те которые непорядку пропускает

[andriano]

1. Для того, чтобы (хотя бы самому) легко ориентироваться в коде, этот код нужно форматировать.

2. Зачем здесь вложенный цикл?
Я не придираюсь, я задаю наводящий вопрос. Если ты сам сможешь сформулировать ответ на этот вопрос, то сам же и поймешь в чем ошибка.