Открыть в паскале текстовый файл,в котором прописаны цифры от 0 до 9 и русские буквы, напечатать да если в запись строки входят все числа от 0 до 9 в противном случае напечатать нет

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program CheckNumbers;
var
inputFile: text;
inputString: string;
i: integer;
numbersAvailable: array[0..9] of boolean;
begin
assign(inputFile, 'input.txt');
reset(inputFile);
for i := 0 to 9 do
numbersAvailable[i] := false;
readln(inputFile, inputString);
for i := 1 to length(inputString) do
begin
if (inputString[i] >= '0') and (inputString[i] <= '9') then
numbersAvailable[ord(inputString[i]) - 48] := true;
end;
for i := 0 to 9 do
begin
if not numbersAvailable[i] then
begin
writeln('Нет');
close(inputFile);
exit;
end;
end;
writeln('Да');
close(inputFile);
end.

Данный код открывает файл input.txt, считывает из него строку и проверяет наличие всех цифр от 0 до 9 в строке. Если все числа присутствуют, выводится Да, в противном случае - Нет.