Да правильно.
Еще надо поменять For i:= 1 To
3 Do... вместо 3 к-во символов в массиве.
Можно еще не по 2 сравнивать а по 3 и больше. Для этого надо сменить
Код:
S:= Copy(Edit1.Text, n, 2);
Inc(n, 2);
Причем в соотведствие можно и так написать:
Код:
M: Array[1..3] of String = ('1a', '2b', '3c');
Z: Array[1..3] of String = ('Привет', 'не знаю', '177');