Озвучка, Pascal

Озвучка

program voice;
  uses aTTSpeech, crt, aRecognition, aDialog;
var t, b, title, hint, msg:String;
begin
  WriteLn('Вы можете сейчас говорить?');
  speak('Вы можете сейчас говорить?');
  WriteLn('Введите "да" или "нет"');
  delay(2500);
  speak('Введите "да"... или "нет"');
  ReadLn(b);
  if b='нет' then {Текстовый ввод}
    begin
    speak('Отлично... Вводите текст');
    repeat 
    WriteLn('Для завершения введите пробел');
    WriteLn('Введите текст...');
    ReadLn(t);
    delay(500);
    WriteLn('Озвученный текст:', t);
    delay(500);
    speak(t);
    delay(2500)
    until t=' '
    end;
  if b='да' then {Голосовой ввод}
  begin 
  repeat 
    t:=speechToText();
    delay(500);
    WriteLn('Для завершения скажите "хватит"');
    WriteLn('Озвученный текст:', t);
    delay(500);
    speak(t);
    delay(2500)
    until t='хватит'
    end
  else
    begin 
    title:='Завершено.';
    speak('Извините... Программа закрывается...');
    msg:='По причине закрытия программы пользователем или ввода неверной команды';
    DialogAlert(title, msg, true);
    end;
  end.


run \| edit \| history \| help	0