помогите пожалуйста решить две задачки по программированию (pascal)

[Guest]

Процедуры и функции (решить задачу с помощью процедуры и функции)
Составить программу, определяющую, в каком из данных двух чисел больше цифр.

 

[isqoff]

uses crt;
var i,sum1,sum2,err:integer;
x,y:string;

BEGIN
write('Введите первое число :');
readln(x);
write('Введите второе число :');
readln;

sum1:=0;
sum2:=0;

for i:=1 to Length(x)do
if (x < #48)or(x > #57)
then continue
else sum1:=sum1+1;

for i:=1 to Lengthdo
if (y < #48)or(y > #57)
then continue
else sum2:=sum2+1;

if sum1 = sum2
then writeln('Цифр равное количество')
else if sum1 > sum2
then writeln('В первом числе цифр больше')
else writeln('Во втором числе цифр больше');


END.

 

[VitoScaletta]

var x1, x2: integer;

function sum(x1: integer): integer;
begin
sum:=length(inttostr(x1));
end;

begin

read(x1, x2);

if sum(x1)>sum(x2) then
writeln('У первого')
else
writeln('У второго');

end.