Помогите написать программу на Паскале  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.