Приведу пример кода на Pascal для решения данной задачи:

program MaxDigit;
var
num, maxDigit, currentDigit: integer;
begin
writeln('Введите целое число, состоящее из разных цифр: ');
readln(num);
maxDigit := 0;
while num <> 0 do
begin
currentDigit := num mod 10; // получаем последнюю цифру числа
if currentDigit > maxDigit then
maxDigit := currentDigit; // обновляем максимальную цифру
num := num div 10; // отбрасываем последнюю цифру числа
end;
writeln('Наибольшая цифра заданного числа: ', maxDigit);
end.

Пользователю предлагается ввести целое число, а затем в цикле определяется наибольшая цифра числа. После выполнения программы выводится наибольшая цифра заданного числа.