Помогите составить программу. Паскаль.

program qwe;
var
a,max:integer;
begin
writeln('vvedite chislo');
readln(a);
max:=0;
repeat
      if max< (a mod 10) then max:=(a mod 10);
      a:=a div 10;
until ((a mod 10)=0) and ((a mod 100)=0);
writeln('max=',max);
readln;
end.