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

[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]

Второй вариант я вно неоптимальный.
Насколько я понял, ты хочешь открыть файл, прочитать из него одну строку и сравнить со всеми сроками второго файла.
Это у тебя есть.
Но потом ты что-то хочешь проделать со второй строкой первого файла. Что именно?
Подозреваю, что снова сравнит со всеми строками второго файла. Для этого его надо закрыть и потом открыть с начала.

Только еще раз повторяю: этот способ далеко не оптимальный. Попытайся придумать алгоритм, при котором чтение из файлов происходило бы по одному разу.
Подсказка: используй тот факт, что строки в файлах упорядочены по алфавиту.