Работа с фрагментами текста в Lazarus

[student2008]

Здравствуйте, уважаемые программисты!
Мне нужно сделать в Lazarus программу-переводчик, и возникает два вопроса:
1)Можно ли занести выделенный фрагмент текста в строковую или символьную переменную (переменная называется slovo), и как это сделать?
2) Как найти фрагмент текста в текстовом файле (то есть чтобы программа его нашла) и организовать перенос фрагментов текста (то есть слов или словосочетаний или массивов текста) из одного текстового файла в другой?

Вот мои наработки:

procedure TForm1.MenuItem15Click(Sender: TObject);
dict:text;
slovo:string
begin
AssignFile (dict,'dictionary.txt');//связываю переменную с текстовым файлом,где находится словарь и из которого нужно перенести данные
dlina=:length(slovo);
if dlina>0 then
begin
reset (dict);//открыть файл со словарём на выполнение

Дальше пока что я не сделал. Заранее спасибо за помощь.