Помогите с While

[Д'эльфийка]

Задача наверняка не сложная, просто у меня опыта не хватает (пишу всего пару недель) .
Необходимо к каждой строке текстового файла f1 добавить строки файла f2.
Такой код не работает. Подскажите что делаю те так?

While not EOF(f1) do 
begin
 ReadLn(f1,st1);
   While not EOF(f2) do
   begin
     ReadLn(f2,st2); 
     stM:= st1+' '+ st2;
     WriteLn(fMain, stM);
   end;
end;

[evg_m]

While not EOF(f1) do 
begin
 ReadLn(f1,st1);
 Reset(f2);//////////////////////////////////////////
   While not EOF(f2) do
   begin
     ReadLn(f2,st2); 
     stM:= st1+' '+ st2;
     WriteLn(fMain, stM);
   end;
Closefile(f2);////////////////////////
end;

[Ntlegend]

эээмммм... я чото не вижу в коде чтобы ты открывала для чтения файлы..а так вроде все нормально

[Д'эльфийка]

Не работает. Почему-то из второго файла берет только последнюю строку

[Д'эльфийка]

Получилось!!!!!!!!!! Всем спасибо!

begin
AssignFile(f1,PChar(Memo1.Text));
Reset(f1);
While not EOF(f1) do 
begin
  ReadLn(f1,st1); 
  AssignFile(f2,PChar(Memo2.Text));
  Reset(f2);
   While not EOF(f2) do 
   begin
   ReadLn(f2,st2); 
   stM:= st1+' '+ st2;
   WriteLn(fMain, stM);
  end;
  CloseFile(f2);
end;
begin
CloseFile(f1);
CloseFile(fMain);
end;
end;