Задача:Найти максимальное из цифр четырехзначного числа

[Obender13]

Вот собственно задача:
Найти максимальное из цифр четырехзначного числа (целое от деления целых чисел, максимум из двух).

Если можно на VBA, если нет то сойдет на delphi или pascal.
Заранее спасибо!

[ОДИНОЧЕСТВО В СЕТИ]

[pascal]

var 
  a,x:integer;
  i,s:integer;
begin
  writeln('введите целое число');
  readln( a );
  x:=a;
  s:=0;
  while ( x<>0 ) do 
    begin
      if x mod 10> s then s:=x mod 10;
      x := x div 10;
    end;
writeln( 'максимальная цифра числа ' ,a,' = ', s );
Readln;
end.