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

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.