Запись в файл delphi

[Hombre de broma]

Здравствуйте подскажите, как записать значения нескольких переменных в один txt файл,а потом считать их?

[Hombre de broma]

var f1:textfile;

lct:= ExtractFilePath(ParamStr(0));
assignfile(f1,lct+'config.txt');
reset(f1);
readln(f1,lng);
readln(f1,msc);
readln(f1,dif);
closefile(f1);
//запись, lct-путь к екзешнику, lng,msc,dif переменние

assignfile(f1,lct+'config.txt');
rewrite(f1);
writeln(f1,lng);
writeln(f1,msc);
writeln(f1,dif);
closefile(f1);
//читаем