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

procedure TForm1.N2Click (Sender: TObject);

var

i:integer;

begin

if OpenDialog1. Execute then

begin

EdFile:=OpenDialog1. FileName; {в переменную присваиваем

имя и полный путь к файлу}

RichEdit1. Lines. LoadFromFile(EdFile);

memo1. Lines. LoadFromFile(EdFile);

end;

end;

procedure tform1.zamena;

label 1;

label 2;

var

i, j, k:integer; t:string;

a: char;

begin

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

begin

t:= richedit2. Lines[i];

for j:=1 to length(t) do

begin

if (j=1) and (i=0) then

begin

t[j]:= chr (ord(t[j]) – 32); // замена строчных букв после '.' на прописные

end;

if t[j]='.' then