Pascal-Форматир-е текстовых файлов

[Kasim]

Пожалуйста, помогите решить задачку.
Необходимо отформатировать текстовый файл так, чтобы все строки были выровнены по центру. Ширина строки=80.
Заранее благодарен.

[Хыиуду]

Код: Выделить всё

while not eof(fin) do
begin
  readln(fin, s);
  if length(s)<80 then 
     for i:=1 to (80-length(s)) div 2 do
        s:=' '+s+' ';
  writeln(fout,s);
end;