Помогите, пожалуйста, составить программу в паскале! Дано четырехзначное число заменить в нем наибольшую цифру нулем.

var   a, i : integer;   c : array [1..4] of integer; begin   read (a);   for i := 1 to 4 do   begin     c[4 - i + 1] := a mod 10;     a := a div 10;   end;   a := 1;   for i := 2 to 4 do     if c[i] > c[a] then a := i;   c[a] := 0;   if a = 1 then a := 2 else a := 1;   for i := a to 4 do write (c[i]); end.