Помогите доделать программу перевод из морзе на Паскале.

Если исходный текст вводится в виде азбуки Морзе через пробел и если решать в PascalABC.NET
Var s:string; i:integer;
Begin
write('Текст азбукой Морзе через пробел:');
readln (s);
var s2:=s.Split;
i:=0;
While i <= High(s2) do
begin
if s2[i]='.-' then write('A');
if s2[i]='-...' then write('Б');
if s2[i]='.--' then write('В');
if s2[i]='--.' then write('Г');
if s2[i]='-..' then write('Д');
if s2[i]='.' then write('Е');
if s2[i]='...-' then write('Ж');
if s2[i]='--..' then write('З');
if s2[i]='..' then write('И');
if s2[i]='.---' then write('Й');
if s2[i]='-.-' then write('К');
if s2[i]='.-..' then write('Л');
if s2[i]='--' then write('М');
if s2[i]='-.' then write('Н');
if s2[i]='---' then write('О');
if s2[i]='.--.' then write('П');
if s2[i]='.-.' then write('Р');
if s2[i]='...' then write('С');
if s2[i]='-' then write('Т');
if s2[i]='..-' then write('У');
if s2[i]='..-.' then write(' Ф');
if s2[i]='....' then write('Х');
if s2[i]='-.-.' then write('Ц');
if s2[i]='---.' then write('Ч');
if s2[i]='----' then write('Ш');
if s2[i]='--.-' then write('Щ');
if s2[i]='.--.-' then write('Ъ');
if s2[i]='-.--' then write('Ы');
if s2[i]='-..-' then write('Ь');
if s2[i]='..-.' then write('Э');
if s2[i]='..--' then write('Ю');
if s2[i]='.-.-' then write('Я');
i:=i+1;
End;
End.

Или вместо строки var s2:=s.Split; нужно написать кусок программы для разбиения текста из азбуки Морзе по заданному разделителю. Можно текст по буквам загонять в массив (указанная строка именно это и делает) и расшифровывать этот массив.

вместо s2 надо сравнивать s[i]