Объясните задачу Delphi. Задача сделана только код я не понимаю!!!!

Дельфи я не знаю, но код вроде понятный-

begin
with RichEdit1 do //работаем с RichEdit
begin
if SelLength <> 0 then // если есть выделенный текст
S_Pos := SelStart + SelLength // позиция первого сивмола + количество символов в выделенном тексте
else // если нет выделенного текста
S_Pos := 0;
End_Pos := Length(RichEdit1.Text) - S_Pos; // узнаём позицию последнего символа в тексте (бессмыслица)
Found := FindText(FindDialog1.FindText, S_Pos, End_Pos, [stMatchCase]); //ищем нужный текст из FindDialog1.FindText в тексте из RichEdit с позиции S_Pos до End_Pos c параметром stMatchCase (при поиске учитывать регистр ) результат заноситься в Found, результат, это позиция первого символа ключевой строки (строку которую нужно найти) в тексте
if Found <> -1 then // если результат поиска не равен -1 (-1 значит нихера ненайденно)
begin
// выделяем найденное
SetFocus;
SelStart := Found; // начинаем выделять с позиции Found
SelLength := Length(FindDialog1.FindText); // выделим с позиции Found количество символов Length(FindDialog1.FindText – возвращает кол символов строки которую нужно было найти…
end;

Дожили, разжуй (напиши за него) , положи в рот да еще проглоти за него!
Учись студент и сам выполняй задания, тогда будешь понимать как работает код!
А если лень, то будь любезен, оплачивай помощь (работу).

2 часа за учебником за delhi или pascal ем, и ты баги тут пофиксить сможешь!