Исправление ошибки в проге Опции

[Juhn]

Есть такая программа:
program chisla;
function sar(const a, b:integer):real;
begin
sar:=(a + b)/2;
end;

function num(var i1, i2:integer):integer;
var
i:integer;
begin
i:=0;
while i1<>0 do begin
inc(i);
i1:=i1 div 10;
end;

while i2<>0 do begin
inc(i);
i2:=i2 div 10;
end;

num:=i;

var
a, b:integer;
begin
repeat
writeln('Vvedite a'); readln(a);
writeln('Vvedite b'); readln(b);
until(a<b);
writeln('summa chisel:', (a+b));
writeln('srednee arifmeticheskoe:', sar(a,b):4);
writeln('kolichestvo cifr:', num(a,b));
readln;
end.

1.Ошибка в следующем, сумма и арифметическое считается правильно, а вот количество цифр почему - то пишется 1, а не 2, хотя написано writeln('kolichestvo cifr:', num(a,b)); Как сделать что бы выдавало кол-во цифр 2 ?
2. Не поможете разобраться с данными строками:
function sar(const a, b:integer):real;
function num(var i1, i2:integer):integer;

Какой тип к этим переменным присваевается ? реальный или переменный? а то в скобках например integer а за скобками ещё и real. Вообщем помогите как расписать эти строки.
Заранее спасибо.

[Juhn]

Ну вообщем запрвашивается 2 числа, я напрмиер ввожу первое 2, и второе 4, и мне выдаётся результат:
сумма = 6, ср. фрифметическое = 3, кол-во цифр = 1. Вот она и ошибка, выдаёт что количество цифр =1, а нужно что бы выдавало 2, ведь я ввёл 2 числа.