Помогите решить задачу по программированияю на delphi

1. Помещаешь 2 Edit-а на форму, одно кнопку. В ней пишешь:

procedure TForm1.Button1Click(Sender: TObject);
var
C: Char;
begin
Edit1.Text := '';
Edit2.Text := '';
while Length(Edit1.Text) < 15 do
begin
C := Char(RandomRange(Ord('а'), Ord('я')));
Edit1.Text := Edit1.Text + C;
if Pos(C, 'мера') = 0 then
Edit2.Text := Edit2.Text + C else
Edit2.Text := Edit2.Text + ' ';
end;
end;

В секции USES нужно добавить Math.
Весь код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
C: Char;
begin
Edit1.Text := '';
Edit2.Text := '';
while Length(Edit1.Text) < 15 do
begin
C := Char(RandomRange(Ord('а'), Ord('я')));
Edit1.Text := Edit1.Text + C;
if Pos(C, 'мера') = 0 then
Edit2.Text := Edit2.Text + C else
Edit2.Text := Edit2.Text + ' ';
end;
end;

end.

Цикл от 1 до 4.
S- последовательность
N - Мера
StringReplace( S, N{i}, ' ', [ rfReplaceAll, rfIgnoreCase ])
Только скобки { поменяй, а то убираются при сохранении

вот по основам пограммирования на Delphi зачёт на 4 сдал, а вот в задачу въехать так и немогу...