var
f:textfile;
i:integer;
begin
AssignFile(f,'olo.txt');
Rewrite(f);
For i:=0 to Memo1.Lines.Count do
Writeln(f,Memo1.Strings[i]+';'+Memo2.Strings[2]);
CloseFile(f);
end;
-----------
Писал прям тут, не проверял, но думаю алгоритм ясен