Склавиатуры вводится целое число, содержащее не более 7 цифр. определить максимальную цифру в этом числе. программа pascal abc. нужно использовать цикл с предусловием.

Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.