Дано трехзначное и четырехзначное число. В каком числе сумма цифр больше? Напишите, пожалуйста, программу для Pascal.ABC.

var x,y, sum1,sum2:integer; begin   readln(x);   readln(y);   while x<>0 do begin       sum1:=sum1 + x mod 10;       x := x div 10;   end;    while y<>0 do begin        sum2:=sum2 + y mod 10;       y := y div 10;    end;    if sum1>sum2 then Writeln('v pervom: ',sum1, ' (vo vtorom ',sum2,')') else writeln('vo vtorom: ',sum2,' (v pervom ',sum1,')'); end.