Помогите написать программу на Паскале

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

Var

s, s2: string;

function one (s: string) : integer;

var i, c: integer;

begin

c : = 0;

for i : = 1 to length (s) do

if (s[i] = '1') then c : = c + 1;

result : = c;

end;

begin

writeln ('Введите первое число:');

readln (s);

writeln ('Введите второе число:');

readln (s2);

if (one (s) > one (s2)) then write ('В первом числе больше единиц')

else write ('Во втором числе больше единиц');

end.