Реализовать азбуку морзе

uses system;
var s:string;
i:integer;
Procedure Point;
Begin
Console.Beep(2000,300); //точка
end;
Procedure PauseSmall;
Begin
Sleep(300); //пауза между точками или тире в одной букве
end;
Procedure Tire;
Begin
Console.Beep(2000,900); //тире
end;
Procedure PauseBig;
Begin
Sleep(900); //пауза между буквами
end;
Procedure Letter(a:char);
Begin
Case a of //сюда пишешь все нужные буквы, найдешь таблицу морзе в рунете.
'а':
begin
Point; //точка
PauseSmall; //пауза
Tire; //тире
PauseBig; //пауза после буквы
end;
'б':
begin
Tire;
PauseSmall;
Point;
PauseSmall;
Point;
PauseSmall;
Point;
PauseBig;
end;
//и тд
end;
end;
BEGIN
Readln(s); //вводится слово.
For i:=1 to Length(s) do
Letter(s[i]);
END. //все!

const n=100;
var a:array[1..n] of integer;
i,ch,nech,num_0:integer;
BEGIN
ch:=0;
nech:=0;
num_0:=0;
For i:=1 to n do a[i]:=Random(100);
For i:=1 to n do Write(a[i],' ');
Writeln;
For i:=1 to n do begin
  IF a[i] mod 2 = 0 THEN ch:=ch+1
                           ELSE nech:=nech+1;
  IF a[i] = 0 THEN num_0:=num_0+1;
end;
Writeln ('Чeтных ', ch);
Writeln ('Нечeтных ', nech);
Writeln ('Нулей ', num_0);
END.

If a[i]=0 then inc(num_0)
 else
  If a[i] mod 2 = 0 then inc(ch)
     else inc(nech);

Writeln ('Чeтных ', ch-num_0);