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

for k:=j+1 to length(t) do

begin

if t[k]<>' ' then

begin

a:=chr (ord(t[k]) – 32);

delete (t, k, 1);

insert (a, t, k);

goto 2;

end;

end;

2: richedit2. Lines[i]:= t;

end;

end;

end;

end;

procedure tform1.registr;

label 1;

var i, x, j, k, g:integer; f:string;

begin

for x:=0 to memo2. Lines. Count-1 do

begin

memo2. Lines[x]:=''; // очистка memo2

end;

if richedit1.text<>memo1. Text

then

for x:=0 to memo1. Lines. Count-1 do

memo1. Lines[x]:=''; // очистка memo1

if richedit1.text<>'' then

for i:=0 to richedit1. Lines. Count-1 do