Отформатировать текст так чтоб все строки были по 80 символов

unit format1;                                               {модуль форматирования}
 
Interface
 
procedure readf(var f,outf:Text);           {процедура считывания}
 
Implementation
 
procedure formt(s:string; n:integer; var outf:Text);    {процедура форматирования}
var i,l,k,t,j,u:integer;
begin
    l:=length(s);
    if(l>=80) then writeln(outf,s)
    else
    begin
       k:=80-l;
       if n=0 then t:=0
       else t:=k div n +1;
       for i:=1 to l do
       begin
          write(outf,s[i]);
          if(s[i]=' ') then
          begin
              if(t<k) then u:=t
              else u:=k;
              for j:=1 to u do write(outf,' ');
              k:=k-t;
          end;
       end;
       writeln(outf);
    end;
end;
 
procedure writef(var s:OpenString;fl:integer;var outf:Text);    {процедура записи}
 
var l,i,l1,n:integer;
    s1:string;
begin
   l:=Length(s);
   if(l=0) then exit;
   n:=0;
   l1:=0;
   if(l<80) and (fl=0) then exit;
   if(l=80) then
   begin
       writeln(outf,s);
       delete(s,1,l);
       exit;
   end;
   for i:=1 to l do
   begin
       if(s[i]=' ') then
       begin
          n:=n+1;
          if(i<82) or (l1=0) then l1:=i;
          if(i>80) then break;
       end;
   end;
   n:=n-1;
   if(l<80) then
   begin
     l1:=l;
     n:=n+1;
     s1:=copy(s,1,l1);
     delete(s,1,l1);
   end
   else
   begin
     s1:=copy(s,1,l1-1);
     delete(s,1,l1);
   end;
   formt(s1,n,outf);
   if(fl=1) then writef(s,1,outf);
end;
 
procedure readf(var f,outf:Text);       {процедура считывания}
var   s1,s2:string;
      i:integer;
begin
      readln(f,s1);
      writef(s1,0,outf);
      while(not eof(f)) do
      begin
        readln(f,s2);
        s1:=concat(s1,' ',s2);
        writef(s1,0,outf);
      end;
      writef(s1,1,outf);
end;
 
begin
end.

program formt;
uses FORMAT1;                    
var f,outf:Text;
 
begin
     Assign(f,'input.txt');               
     Reset(f);
     Assign(outf,'output.txt');     
     Rewrite(outf);
     readf(f,outf);              
     Close(f);
     Close(outf);
end.