Есть код согласно которому нужно проверить совпадение между файлом first и massive и записать результат в rezult
вот код
var
first,massive,rezult: text ;
str1,str2:string;
i,n,t,y:integer;
begin
AssignFile(first,'c:\way\first.txt');
reset(first);
AssignFile(massive,'c:\way\massive.txt');
reset(massive);
AssignFile(rezult,'c:\way\new.txt');
while not EOF(first) do
begin
Readln(first,str1);
while not EOF(massive) do
begin
Readln(massive,str2);
y:=pos(str1,str2);
if (y<>0)then
begin
rewrite(rezult);
writeln(rezult,str2);
end ;
end;
end;
close(first);
close(massive);
close(rezult);
end.
запускаю даже пошагово вроде все должно работать но в файл rezult результат не записывается ?