Separate names with a comma.
Ну можно это сделать так ^_^ - var f: textfile; s: string; ..... begin assign(f,'blablabla.txt'); rewrite(f); ..... writeln(s); ---...
Чето то, типа этого -
Что то типа такого - procedure TForm1.Button1Click(Sender: TObject); var ER:tstrings; i,k: integer; q: boolean; l,m,n: string;...