{(c) 2001 Emur http://emur.org}

{Program vyzaduje soubor "vstup.txt" naplneny lib. textem}

program uprava_radku;
uses crt;
var vst,vyst:text;
    ds:0..150;
    l,max:integer;    {max - delka radku}
    ch:char;
    s:array[1..150] of char;

procedure cti;
begin
  ds:=0;
  Read(Vst,ch);
  while (ch<>' ') and (not(Eoln(Vst))) and (not(Eof(Vst))) do
  begin
    ds:=ds+1;
    s[ds]:=ch;
    Read(Vst,ch);
  end;
  if Eof(Vst) then
  begin
  ds:=ds+1;
  s[ds]:=ch;
  end
  else if Eoln(Vst) then
  begin
  ds:=ds+1;
  s[ds]:=ch;
  ReadLn(Vst);
  end;
end;

procedure zapis;
var i:1..150;
begin
  for i:=1 to ds do Write(Vyst,s[i]);
  l:=l+ds;
end;

BEGIN
clrscr;
window(7,3,75,20);
writeln;writeln('          > > UPRAVA DELKY RADKU V TEXTOVEM SOUBORU < <');
writeln;writeln;
writeln('Jako vstupni soubor se pouzije soubor "vstup.txt" z aktualni slozky');
writeln;write('Zadejte kolik chcete znaku na radek: '); readln(max);writeln;
Assign(vst,'vstup.txt');
reset(vst);
assign(vyst,'vystup.txt');
rewrite(vyst);
l:=0;
  while not(eof(Vst)) do
  begin
    Cti;
    if l+ds<Max then
      begin
       Write(Vyst,' ');
       l:=l+1;
      end
    else
     begin
      WriteLn(Vyst);
      l:=0;
     end;
    Zapis;
  end;
  WriteLn(Vyst);
  Close(Vyst); Close(Vst);
  Write('Soubor "vystup.txt" ma nyni nejvyse ',max,' znaku na radku.');
  Readkey;
END.