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

Form1: TForm1;

t,tt,t2:string;

f:Tstrings;

r,i,rs,j,q,rc,m,n,l,qw:integer;

al:array[1..66,1..2] of string;

kl:array[1..1000] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

f:=Tstringlist.create();

f.Loadfromfile(form1.Edit1.Text);

for qw:=0 to f.count-1 do begin

tt:='';

t2:='';

t:=f.strings[qw];

i:=1;

while t[i]<>'' do

i:=i+1;

r:=i-1;

for i:=1 to r do begin

q:=1;

for j:=1 to 66 do begin

if t[i]=al[j,1] then begin

tt:=tt+al[j,2];

q:=2;

end;

end;

if q=1 then begin