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

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;