Символьная информация (азбука Морзе)

uses crt;
const
mrz:array[1..32] of string=
                 ('.-','-...','.--','--.','-..','.','...-','--..',
                  '..','.---','-.-','.-..','--','-.','---','.--.',
                  '.-.','...','-','..-','..-.','....','-.-.','---.',
                  '----','--.-','-..-','-.--','-..-','..-.','..--','.-.-');
bk:string='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
 
function Bukva(s:string):boolean;
var i:byte;
    f:boolean;
begin
if length(s)>4 then f:=false
else
 begin
  i:=1;
  f:=true;
  while(i<=length(s)) and f do
  if not(s[i] in ['.','-']) then f:=false
  else i:=i+1;
 end;
Bukva:=f;
end;
var s,s1,s2:string;
    i,j:byte;
    f:boolean;
begin
clrscr;
writeln('Введите текст азбукой Морзе, между буквами пробел:');
readln(s);
s:=s+' ';
s1:='';
f:=true;
while (pos(' ',s)>0)and f do
 begin
  s2:=copy(s,1,pos(' ',s)-1);
  if not Bukva(s2)then
   begin
    f:=false;
    s1:='Это не азбука Морзе';
   end
  else
   begin
    for i:=1 to 32 do
    if mrz[i]=s2 then s1:=s1+bk[i];
   end;
  delete(s,1,pos(' ',s));
 end;
write(s1);
readln
end.