Форматированный вывод в файл
Текст программы приведен ниже.
Код:
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;
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;
Ну, смотря какой формат тебе нужен...
все спасибо разобрался