program irteszt;
uses crt,dos;
var
  s1:string;
  sb:array[0..255]of byte absolute s1;
  xk:byte;
  j:integer;
procedure writeln2(var sx:string; xkep:byte);
var
 exit,exit2,x2,x3,x,i:byte;
begin
exit:=0; x:=1; xk:=xkep;
repeat
 if (sb[x]=32)then { space }
    begin write(sx[x]);x:=x+1; xk:=xk+1; end
    else
    begin { szo }
      x2:=x; x3:=0; exit2:=0;
      repeat
      x2:=x2+1; if (x2>sb[0]) then exit2:=1; x3:=x3+1;
      if (sb[x2]=32)then exit2:=1;
      until(exit2=1);
      if((xk+x3)>79) then begin writeln; xk:=0; end;
      for i:=1 to x3 do begin write(sx[x]); x:=x+1; xk:=xk+1; end;
      end;
 if (x>sb[0]) then exit:=1;
 if (xk>79) then xk:=0;
 until(exit=1);
end;
begin
clrscr;
s1:='Megeszem e levesem madagaszkar lovasaira mondom hammerrel locsolkodni husvetkor';
s1:=s1+' mennem kellett budapestre tegnap este. Kecskeleveslehetne valamihosszuszo kellene felsorolni..';
writeln2(s1,0);
writeln; writeln; xk:=0;
for j:=1 to 12 do
 begin
 s1:=' gabbababbahely, galagalagala.';
 writeln2(s1,xk);
 s1:=' ezittenegyujszoo lenneha-volna-hosszuu.';
 writeln2(s1,xk);
 s1:=' hali GOOOOOOOOGLE.';
 writeln2(s1,xk);
 end;
readln;
end.