Лабораторная работа 8. Упражнение 12

12. В данном слове заменить каждую букву «а» на букву «я».

Пример интерфейса

Пример программы

uses

// ...

LCLProc;

//...

procedure TForm1.Button1Click(Sender: TObject);

var

    c, s, ss : string;

    c1, c2   : string;

    i, len   : Byte;

begin

    s   := Edit1.Text;

    ss  := s;

    c1  := Edit2.Text;

    c2  := Edit3.Text;

    len := UTF8Length(s);

    for i := 1 to len do begin

        c := UTF8Copy(s, i, 1);

        if c = c1 then begin

            UTF8Delete(ss, i, 1);

            UTF8Insert(c2, ss, i);

        end;

    end;

    Edit1.Text := ss;

end;