program koduneyl;
uses crt;
var  laius,i,pikkus,laius1,j,l,m,koht,salg,slopp:integer; f,f2:text;
     st,sona,taish,tais,sona1,sona2:string;
procedure poolitamine;
  begin
   taish:='aeiou“„”';
    for j:=1 to length(sona) do begin
     for i:=1 to length(taish) do begin
      for l:=1 to length(taish) do begin
       for m:=1 to length(taish) do begin
        if (sona[j]=taish[i])and(sona[j+1]<>taish[l])
         and(sona[j+2]=taish[m]) then koht:=j;
  end;end; end; end;
  insert('-'+#13+#10,st,salg+koht );
  end;

begin
 clrscr;
 writeln('TEXTI VORMINDAMINE');
 writeln('Mitme t„hem„rgi laiune peab olema loodav text?');
 readln(laius);
 assign(f,'z:tab1.txt');
 reset(f);
 assign(f2,'z:tab2.txt');
 rewrite(f2);
 laius1:=laius;
 while not eof(f) do
  begin
   readln(f,st);
   while laius<length(st) do begin
    i:=laius;
    while st[i]<>chr(32) do   begin
      dec(i);   sona1:=copy(st,i,laius-i); end;
    salg:=i;
    i:=laius;
    while st[i]<>chr(32) do begin
     inc(i);   sona2:=copy(st,laius,i-laius); end;
     slopp:=i;
    sona:=sona1+sona2;
    if laius-salg-1<=3 then insert(#13+#10,st,salg) else
     if slopp+1-laius<2 then insert(#13+#10,st,slopp) else
        poolitamine;
    laius:=laius+laius1;
    end;
   write(st);
  end;

  writeln(f2,st);
  close(f);
  close(f2);
     readln;end.