Паскаль дано четырехзначное число, заменить нулем максимальную цифру

Uses crt;
var a:integer;
b:array[1..4] of integer;
max,i,k,t:integer;
begin
readln(a);
k:=1;
repeat
for i:=k to k do
b[i]:=a mod 10;
a:=a div 10;
inc(k);
until a=0;
max:=0;
for i:=1 to 4 do
if b[i]>max then begin max:=b[i]; t:=i; end;
b[t]:=0;
for i:=4 downto 1 do
write(b[i]);
end.