[AND_REY]

Вроде так, может и проще можно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Const
 M: Array[1..3] of String = ('1a', '2b', '3c');
 Z: Array[1..3] of String = ('а', 'р', 'о');
Var
 S: String;
 n, i: Integer;
begin
 n:= 1; Label1.Caption:= '';
 While n < Length(Edit1.Text) Do
  begin
   S:= Copy(Edit1.Text, n, 2);
   For i:= 1 To 3 Do if S = M[i] Then Label1.Caption:= Label1.Caption + Z[i];
   Inc(n, 2);
  end;
end;