Отформатировать текст и записать его в новый файл так, чтобы все строки имели одинаковую длину, равную длине самой длинной строки.

uses crt;
var f,g:text;
    m,k,i,v:byte;
    namef,nameg,s:string;
begin
clrscr;
write('Введите имя файла для изменений:  ');
readln(namef);
namef:=namef+'.txt';
assign(f,namef);
{$I-}//проверим файл на существование, попробуем его открыть для чтения
reset(f);
{$I+}
if IOResult<>0 then//если нет
 begin
  writeln('Файл с именем ',namef,' не найден.');
  writeln('Работа программы завершена. Нажмите Enter.');
  readln;
  halt;
 end;
write('Введите имя файла для записи:  ');
readln(nameg);
nameg:=nameg+'.txt';
assign(g,nameg);//создаем файл для записи
rewrite(g);
m:=0;//максимальная длина строки
while not eof(f) do//пока не конец файла
 begin
  readln(f,s);//читаем строки
  if length(s)>m then m:=length(s);//если длина больше макс., это макс.
 end;
close(f);//закроем файл
reset(f);//снова откроем
while not eof(f) do
 begin
  readln(f,s);
  k:=m-length(s);//определяем сколько пробелов добавить
  if k>0 then
   begin
    v:=0;//считаем вставляемые пробелы
    repeat//во внешнем цикле
     for i:=length(s) downto 1 do//крутим внутренний цикл от конца строки к началу
     if (s[i]=' ')and(s[i-1]<>' ') then//перед первым пробелом перед каждым словом
      begin
       insert(' ',s,i);/ добавляем 1 пробел/
       v:=v+1;//считаем
       if v=k then break;//если болше не нужно, прерываем цикл
      end;
    until v=k;//если все вставили, прерываем внешний цикл
   end;
  writeln(g,s);//записываем новую строку во второй файл
 end;
close(f);//закрываем оба файла
close(g);
write('Файл переписан!');
readln
end.