Описать функцию, которая возвращает количество разных цифр входящих в запись числа - Pascal

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

арод кто может помочь напесать на Pascale 7.0 две програмки! 1. Описать функцию, которая возвращает количество разных цифр входящих в запись числа типа Longint. 2. Использовать подпрограммы (null, ввода, вывода, обрабатывающей части). Даны 3 матрицы целых чисел: (4*3), (4*4), (3*3). Распечатать ту из них, в которой находится максимальное среднее геометрическое положительных элементов 3-го столбца матриц. Считать, что такая матрица одна. Очень надо!!!!!!!!!!!!!!!!!!!!!! Вы спасети жизнь студента! :shock:

Решение задачи: «Описать функцию, которая возвращает количество разных цифр входящих в запись числа»

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

var l:longint;
i, j:byte;s:string;
begin
writeln('vvedite chislo');
readln(l);
str(l, s);
for i:=1 to length(s) do
for j:=1 to length(s) do begin
if ((s[i] = s[j]) and (j;i)) then break
else if (j=length(s)) then begin
write(' ', s[i], ' '); break;
end;
end;
readln;
end.

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

В этом коде используется язык программирования Pascal. Программа запрашивает у пользователя число, преобразует его в строку и затем подсчитывает количество уникальных цифр в этой строке. Вот список действий, которые происходят в коде:

Переменная l инициализируется типом longint, что позволяет ей хранить целые числа с произвольной точностью.
Пользователю предлагается ввести число.
ЧислОк вводится в переменную l.
Затем число преобразуется в строку и сохраняется в переменной s.
Два вложенных цикла проходят по каждому символу строки s.
Если текущие символы равны и индексы символов не равны, то циклы прерываются.
Если достигнут внешний цикл, то это означает, что текущий символ не повторяется в строке, и он выводится на экран.
После завершения программы пользователю предлагается нажать любую клавишу, чтобы завершить работу программы.