Zalomeni textu vzdy po 80 znacich – Pascal – Fórum – Programujte.com

mam udelany aby mi program otevrel textak udelal z nej kopii....ale ted potrebuju aby mi v ty kopii udelal vzdy po 80 znacich dalsi radek....proste max 80 znaku na radek :( pls pomozte

To spouny: Může být?

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;

const FileIn = 'pokus.txt';

      FileOut = 'pokus2.txt';

      CountPerLine = 5; {pocet znaku na radek}

var fin, fout: text;

    line: String;

    last: Integer;

begin

  Assign(fin, FileIn);

  Assign(fout, FileOut);

  Reset(fin);

  Rewrite(fout);

  while not Eof(fin) do begin

    Readln(fin, line);

    last := 0;

    repeat

     writeln(fout, Copy(line, last, CountPerLine));

     last := last + CountPerLine;

    until(last >= length(line));

  end;

  Close(fin);

  Close(fout);

  readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

je to vono.....thx :)