Выяснить, входят ли во введенный текст буквы с учетом регистра - Turbo Pascal

Формулировка задачи:

Выяснить, входят ли во введенный текст буквы A, N, D(с учетом верхнего и нижнего регистров).

Решение задачи: «Выяснить, входят ли во введенный текст буквы с учетом регистра»

Листинг программы

uses crt;
var s:string;
    i:byte;
    f:boolean;
begin
clrscr;
writeln('Введите текст');
readln(s);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
f:=(pos('A',s)>0)and(pos('D',s)>0)and(pos('N',s)>0);
if f then write('Буквы A,D,N есть в тексте')
else write('Не все буквы A,D,N есть в тексте');
readln
end.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменная s типа string предназначена для хранения введенного пользователем текста.
Переменная i типа byte используется для подсчета количества символов в тексте.
Переменная f типа boolean используется для проверки наличия в тексте букв A, D и N.
Строка 'Введите текст' выводится на экран с помощью функции writeln.
С помощью функции readln считывается введенный пользователем текст.
С использованием цикла for перебираются все символы в тексте.
Внутри цикла каждый символ текста приводится к верхнему регистру с помощью функции upcase.
Переменная f инициализируется значением true. Она будет использоваться для проверки наличия в тексте букв A, D и N.
С помощью функции pos проверяется наличие каждой из букв A, D и N в тексте. Если буква присутствует, то значение переменной f устанавливается в true.
После завершения цикла выводится сообщение о наличии или отсутствии в тексте букв A, D и N.
Код завершается с помощью оператора readln.