Дано трехзначное и четырехзначное число. в каком числе сумма цифр больше? напишите, , программу для 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.