Закодируй слова, используя азбуку Морще 2.1информатика 2.2 математика 2.3 история 2.4 компьютер 2.5 телевизор ​

2.1 Информатика = .. -. ..-. --- .-. -- .- - .. -.- .-

2.2 Математика = -- .- - . -- .- - .. -.- .-

2.3 История = .. ... - --- .-. .. .-.-

2.4 Компьютер = -.- --- -- .--. -..- ..-- - . .-.

2.5 Телевизор = - . .-.. . .-- .. --.. --- .-.

Вот , надеюсь

Uses crt; const       nmax = 20; var       a: array[1..nmax] of integer;       i, m, s: integer;       am, kon: text; begin       clrscr;       assign(am, 'am.txt');             {раскоментировать для записи массива в файл}       {rewrite(am);       m : = random(nmax - 5) + 5;       for i : = 1 to m do               writeln(am, random(20));       close(am); }             {считывание данных из файла}       reset(am);       s : = 0;       m : = 0;       while not eof(am) do       begin               m : = m + 1;               readln(am, a[m]);               s : = s + a[m];       end;       close(am);             assign(kon, 'kon.txt');       rewrite(kon);             if s > 50 then               writeln('сумма элементов массива более 50 и равна: s=', s)       else       begin               writeln('сумма элементов менее 50, вывод исходного массива');               for i : = 1 to m do               begin                       writeln('a[', i, ']=', a[i], ' ');                       writeln(kon, 'a[', i, ']=', a[i], ' ');               end;       end;             close(kon);       readkey; end.