помогите написать алгоритм

[wolf2016]

uses crt;
var num:integer;
dig,t:integer;
begin
t:=0;
WriteLn('Введите целое число и нажмите Enter:');
read(num);
while num<>0 do
begin
dig:=num mod 10;
if dig>t then t:=dig;
num:=num div 10;
end;
WriteLn('Самое большое число ',t);
end.

[Streletz]

Какой алгоритм? В чём проблема?