Написать программу шифрования текста сообщения:с использованием так называемой «тарабарской грамоты», где гласные буквы остаются без изменения, а согласные заменяются друг на друга по следующей схеме — Pascal(Паскаль)

Б В Г Д Ж З К Л М Н
/ / / / / / / / / /
Щ Ш Ч Ц Х Ф Т С Р П
Например, текст «РЕЗИДЕНТ БУДЕТ В СРЕДУ» после шифрования примет вид:
«МЕФИЦЕПК ЩУЦЕК Ш ЛМЕЦУ»

uses crt;
var a: string; i: byte; m: set of char;
begin
m:=['Б'..'Д','Ж','З','К'..'Н','П'..'Т','Ф'..'Щ'];
clrscr;
a:='РЕЗИДЕНТ БУДЕТ В СРЕДУ';
Write('Исходная строка: ',a);
for i:=1 to length(a) do
if a[i] in m then
case a[i] of
'Б': a[i]:='Щ';
'В': a[i]:='Ш';
'Г': a[i]:='Ч';
'Д': a[i]:='Ц';
'Ж': a[i]:='Х';
'З': a[i]:='Ф';
'К': a[i]:='Т';
'Л': a[i]:='С';
'М': a[i]:='Р';
'Н': a[i]:='П';
'П': a[i]:='Н';
'Р': a[i]:='М';
'С': a[i]:='Л';
'Т': a[i]:='К';
'Ф': a[i]:='З';
'Х': a[i]:='Ж';
'Ц': a[i]:='Д';
'Ч': a[i]:='Г';
'Ш': a[i]:='В';
'Щ': a[i]:='Б';
end;
writeln;
write('результат: ',a);
end.