Форматированный вывод в файл

[Kreadlling]

Здравствуйте! Не подскажете как форматированно вывести строки в файл.
Текст программы приведен ниже.

AssignFile(OutFile, 'MyFile.txt');
   rewrite(OutFile);
   write(OutFile, 'Фамилия', '  ');
   write(OutFile, 'Имя', '  ');
   write(OutFile, 'Отчество', '  ');
   write(OutFile, 'Логин', '  ');
   write(OutFile, 'Пароль', '  ');
   writeln(OutFile);

for i := 0 to max do
begin
  write(OutFile, f[i], '  ');
  write(OutFile, g[i], '  ');
  write(OutFile, h[i], '  ');
  write(OutFile, k[i], '  ');
  write(OutFile, l[i], '  ');
  writeln(OutFile);
end;

Заранее благодарю.

[Somebody]

Что-то типа такого: если надо, например, чтобы ширина столбца была 20 символов, то

Write(someString, ' ' : 20 - Length(someString));