Программирование на Турбо Паскале

Для продолжения нажмите любую клавишу...Приобретение навыков решения задач с использованием множеств.Дано предложение, состоящее из латинских букв.Вывести все согласные буквы, которые входят хотя бы в одно слово.{Проверил: Москвитина О.А.,каф.Writeln ('│','Вход ',k:7,'│',s:26,'│',' a [',i,',',j,'] =',a [i,j] :7,'│').For j:=1 to m do.End; {рекурсивная ветвь}.│ 1 2 Ч &#9474.Writeln ('Для продолжения нажмите любую клавишу...') ;Readkey.