Удаление пробелов в конце строк

Program Vvod_Vivod;
var t,f:text;
s:string;
Begin
assign(t,'1.txt');
reset(t);
assign(f,'2.txt');
rewrite(f);
while not eof(t) do
 begin
  readln(t,s);
  while s[length(s)]=' ' do delete(s,length(s),1);
  writeln(f,s);
 end;
close(t);
close(f);
erase(t);
rename(f,'1.txt');
End.

program redaktor;
var
  f, g,t: text;
  nameFile, inputS: string;
  widthPage, i, k1, k2: integer;
  ch: char;
 
begin
  write('Имя файла: ');readln(nameFile);
  //проверяем существование файла
  if not FileExists(nameFile) then
  begin
    writeln('Файл не существует');
    Exit;
  end;
 
  //открываем файл с именем nameFile на чтение
  Assign(f, nameFile);Reset(f);
  //если достигнут конец файла значит он пустой
  if Eof(f) then
  begin
    writeln('Файл пуст');
    //закрываем файл
    Close(f);
    //выходим
    Exit;
  end;
 
assign(f,nameFile);
reset(f);
assign(t,'2.txt');
rewrite(t);
while not eof(f) do
begin
readln(f,inputS);
while inputS[length(inputS)]=' ' do delete(inputS,length(inputS),1);
writeln(t,inputS);
end;
close(f);
close(t);
erase(f);
rename(t,nameFile);
 
  //обнуляем общее количество символов
  //и количество пробелов
  k1 := 0;k2 := 0;
  //пока не конец файла
assign(t,nameFile); reset(t);
  while not Eof(t) do
  begin
    //считываем из файла символы
    read(t, ch);
   
 
    //если считанный символ равен пробелу то увеличиваем количество пробелов
    if ch = ' ' then k1 := k1 + 1;
    //если считанный символ не равен нулевому символу и символам перевода строки то увеличиваем общее количество символов
    if (ch<>#0)and(ch<>#10)and(ch<>#13) then k2 := k2 + 1;
  end;
  //если общее колчичество символов равно количеству пробелов значит файл пустой
  if k1 = k2 then 
  begin
    writeln('Файл пуст');
    Close(t);
    Exit;
  end;
  write('Ширина страницы: ');readln(widthPage);
  //открываем файл ResNameFile для записи
  Assign(g, 'Res' + nameFile);Rewrite(g);
  //открываем файл NameFile на чтение
  Close(t);Reset(t);
  //пока не конец строки выполняем
  while not Eof(t) do 
  begin
    //считываем строку из файла
    readln(t, inputS);
    //если длина строки превышает ширину страницу выводим соотвествующее сообщение
    if Length(inputS) > widthPage then 
    begin
      writeln('Длина строки превышает ширину страницы');
    Close(g);Close(t);
Erase(g);
Exit;
 
    end;
     
 
    //если считанная строка пуста,то переходим к следующей строке
    if Length(inputS)=0 then
    Begin
      writeln(g, inputS);
      Continue;
    End;
    k1:=1;
    //считаем количество пробелов в начале строки
    While inputS[k1]=' ' do k1:=k1+1;
    //удаляем их
    Delete(inputS,1,k1-1);
    //если в строке есть пробелы то
    if pos(' ', inputS) > 0 then
    begin
      //пока длина строки меньше ширины страницы минус количество пробелов в начале строки
      while length(inputS) <= widthPage - k1 do
        //сам процесс выравнивания по ширине
        for i := length(inputS) downto 1 do
        begin
          //если очередной символ строки пробел то добавляем ещё пробел
          if inputS[i] = ' ' then insert(' ', inputS, i);
          //как только достигли нужной длины выходим из цикла
          if length(inputS) = widthPage - k1 + 1 then break
        end
    end;
    //возвращаем начальные пробелы в строку
    For i:=1 to k1-1 do
     Insert(' ',inputS,1);
    //записываем строку inputS в файл resFileName
    writeln(g, inputS);
  end;
  //закрываем файлы
  Close(t);Close(g);
  writeln('Результат в файле Res ', nameFile);
end.