Задача на паскале:четырёх значное число,которое раскладывается по цифрам,находится произведение,сумма,большое число из них

program p1; uses crt; var a,ed,des,sot,tis,s,p,max:longint; begin clrscr; writeln('введите четырех значное число'); readln(a); ed:=a mod 10; des:=a div 10 mod 10; sot:=a div 100 mod 10; tis:=a div 1000; s:=0; p:=1; p:=ed*des*sot*tis; s:=ed+des+sot+tis; writeln('Произведение чисел = ',p); writeln('Сумма чисел = ',s); if (ed>des) and (ed>sot) and (ed>tis) then max:=ed; if (des>ed) and (des>sot) and (des>tis) then max:=des; if (sot>ed) and (sot>des) and (sot>tis) then max:=sot; if (tis>ed) and (tis>des) and (tis>sot) then max:=tis; writeln('Максимальное число = ',max); readln; end.