задача Делфи - поиск нужного и замена

[Katovski]

Люди, не могу понять как ее начать решать, может подскажете?
Сначала идет пояснение, что большинство существительных заканчивающихся на -онок и -енок, множественное число образуется от другой основы. Обычно так цыпленок-цыплята, мышонок-мышата. (в новой основе перед последней буквой т пишется а илия в зависимости от предидущей буквы: если шипящая - а, иначе -я). Имеется ряд исключений: ребенок - дети, опенок - опята...
Так вот.
Дан текст, среди символов которого есть пробел. Группа символов, которая предшествует первому пробелу, представляет собой русское слово, которое заканчивается на -онок или -енок. Получить это слово во множественном числе.

Я не знаю как начать. Мне можно использовать Edit? а когда задаю условия, то как указать, что это русский символ и как отсчитать перед пробелом этот символ? А?

Подскажите пожалуйста.

[ryton]

Edit можно использовать,в условиях русские,да и вообще любые символы в кавычках ставятся, а считать можно по разному,проще всего в другую строку переписывать посимвольно,пока пробел не встретится

[Katovski]

а можно по-подробнее, а то я совсем плохо соображаю

[ryton]

просто возьми функцию
Pos(Substr, S: string);
она возвращает первое вхождение символа,если что не понятно,стучи в личку

[Katovski]

ок, попробую

[ryton]

ежели что,значение этой функции присваивается переменной типа integer,потом уж разберешься,там не так сложно,как кажется

[Katovski]

Ойййеее... ни че не понимаю... люди, я совсем глупая... завтра сдавать... ни че не получается.

[Карась]

Я щас тоже не могу тут сидеть... у меня на завтра предвидится сдача долгов.. надо придумать почему я не разу не был на физре и выучить англ.... + культурологию и "коллектив и личность"

Вообщем я смутно понял что нужно.
Вот: считываем и заносим в другой едит все символы до пробела, определяем Русский ли это или не Русский текст.

Const Rus = ['а'..'я', 'А'..'Я'];

var
  Form1: TForm1;
  i : Integer;
  Rus_s : Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin

Edit2.Text := '';
For i := 1 To Length(Edit1.Text) Do
  Begin
    If Edit1.Text[i] = ' ' Then Break;
    If Edit1.Text[i] In Rus Then Rus_s := True Else Rus_s := False;
    Edit2.Text := Edit2.Text + Edit1.Text[i];
  End;

If Rus_s = True Then Edit2.Text := Edit2.Text + ' Rus' Else
Edit2.Text := Edit2.Text + '  Eng';

end;

[Katovski]

Понятно, почему теперь так пустынно здесь) Спасибо огромное
Удачи с долгами