Курсовая работа: Создание алгоритма для расстановки переносов в словах по правилам русской орфографии

if t[i]='-' then begin tt:=tt+'5'; q:=2; end;

if q=1 then tt:=tt+'6';

end;

end;

//---------------------------

i:=1;

while i<=r do begin

q:=0;

m:=0;

n:=0;

for j:=0 to 4 do begin

if tt[i+j]='1' then q:=q+1;

if (tt[i+j]='2') and (j<>4) then m:=m+1;

if ((tt[i+j]='4')or(tt[i+j]='5')or(tt[i+j]='6')) and (j<>4) then n:=n+1;

end;

if ((q+m>=4)and(q>=2)) and

(tt[i+2]<>tt[i+3])and(n=0)and(tt[i+1]+tt[i+2]<>'21')and((t[i+3]<>'ь') and(t[i+3]<>'ъ')) then begin

t2:=t2+t[i]+t[i+1]+'-';

i:=i+1;

end else begin

t2:=t2+t[i];

end;

i:=i+1;

end;

//---------------------------

f.strings[qw]:=t2;

end;

f.SaveToFile(form1.Edit1.Text+'2.txt');

end;