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

Кусок код выдрала из своей прожки. fMain - это файл в который сохраняется результат. Не стала открытие этого файла описывать в посте. Свою ошибку уже нашла. Всего лишь пропустила один begin. Теперь все работает, так что с циклами в коде все норм.

Код:

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;