Из файла f переписать текст в файл g, сделав в нем все строки фиксированной длины d, выравнивая их по ширине. Опции

[alex1927dk]

Из файла f переписать текст в файл g, сделав в нем все строки фиксированной длины d, выравнивая их по ширине.

[Федосеев Павел]

{$mode delphi}
{$APPTYPE CONSOLE}

program Tak;

uses
  StrUtils, SysUtils, Classes;

const
  d = 10;

  cFileNameF = 'Tak.pas';
  cFileNameG = 'Result.txt';

var
  sL: TStringList;
  f,                 {файл-источник}
  g : TextFile;      {файл-приёмник}
  i : integer;
  s: string;

begin
  sL := TStringList.Create;
  sL.Sorted := FALSE;
  sL.Duplicates := dupIgnore;
  try
    sL.LoadFromFile(cFileNameF);
    for i:=0 to sL.Count-1 do
    begin
      s:=sL.Strings[i];
      if Length(s)<d then
        s:=PadRight(s, d)
      else
        SetLength(s, d);
      sL.Strings[i]:=s;
    end;
    sL.SaveToFile(cFileNameG);
  except
    on Exception do WriteLn('Error');
  end;
  sL.Free;
  writeln('Press Enter...');
  readln;
end.