нужна помощь в работе с файлами

[gemoglobin]

суть задачи -- нужно проверить наличие строк с одного файла в другом! проблема в том, что прога непроверяет все записи. где ошибка ?

program vigr;
uses dos,crt;

var

  i1,i2,i,d,z,r1,r2:string;
  F_dolg,F_zapl,F_rez1,F_rez2:text;
  m,k:integer;

begin  clrscr; m:=0; k:=0;
                                                        то что синим в учёт неберите
  {otkrivaem faily dlja raboty}
     assign(F_dolg,'dolg.txt');

          assign(F_zapl,'zapl.txt');

              assign(F_rez1,'rez1.dat');

                 assign(F_rez2,'rez2.dat');

     reset(F_dolg);
       reset(F_zapl);
         rewrite(F_rez1);
           rewrite(F_rez2);

   {zapisivaet rezul'tat obrabotki fajla dolg.txt v fail rez1.dat}

     while not eof(F_dolg) do

         begin
              readln(F_dolg,d);

               i2:=copy(d,10,15);  writeln(F_rez1,i2);
         end;

     close(F_rez1);
   {zapisivaet rezul'tat obrabotki fajla zapl.txt v fail rez2.dat}

   while not eof(F_zapl) do

         begin
              readln(F_zapl,d);

               i2:=copy(d,10,15);  writeln(F_rez2,i2);
         end;

   close(F_rez2);

{zakrivaem faily dolg.txt i zapl.txt }
close(F_dolg);
close(F_zapl);

{prodoljenie .....}
   assign(F_rez1,'rez1.dat');
     assign(F_rez2,'rez2.dat');
       reset(F_rez1);
         reset(F_rez2);


     while not eof(F_rez1) do
     begin
       readln(F_rez1,r1);

       while not eof(F_rez2)  do
       begin
         readln(F_rez2,r2);  k:=k+1;write(k,'  ');
         if (r1=r2) then m:=m+1; в принципе неработает только красный кусок 

       end;
     end;


writeln(m);
writeln('....complete...');
readln;
end.

вот ! ПОМОГИТЕ ПЛИЗ!

[Stilet]

Правильно не работает:

     while not eof(F_rez1) do
     begin
       readln(F_rez1,r1);
reset(F_rez2);
       while not eof(F_rez2)  do
       begin
         readln(F_rez2,r2);  k:=k+1;write(k,'  ');
         if (r1=r2) then m:=m+1; в принципе неработает только красный кусок 

       end;
     end;

Тебе каждый раз его переоткрывать нужно.
вообще я бы не так сделал... Через указатели, загружал весь файл в память а потом... Впрочем и так пройдет.

[gemoglobin]

Stilet !!! СПАСИБО БОЛЬШОЕ!!!