Помогите написать программу на Паскале
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) gt; one(s2)) then write(В первом числе больше единиц)
  else write(Во втором числе больше единиц);
end.