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

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.