подсчет количества цифр - Pascal - Ответ 304360

Program Chas;
 
Uses CRT;
 
Var
time1,time2:string;
i,h1,h11,h12,h2,h21,h22,m1,m11,m12,m2,m21,m22,s1,s11,s12,s2,s21,s22:byte;
a:array[1..10] of integer;
 
begin
 
readln(time1);
readln(time2);
{ввели время, как в задаче, типа hh:mm:ss}
 
for i:=1 to 10 do
a[i]:=0;
{забили начальное количество цифр нулями}
 
{начинаем перевод строк в понятный формат}
val(time1[1],h11,i);
val(time1[2],h12,i);
h1:=10*h11+h12;
 
val(time1[4],m11,i);
val(time1[5],m12,i);
m1:=10*m11+m12;
 
val(time1[7],s11,i);
val(time1[8],s12,i);
s1:=10*s11+s12;
 
{Первое число закончено}
 
val(time2[1],h21,i);
val(time2[2],h22,i);
21:=10*h21+h22;
 
val(time2[4],m21,i);
val(time2[5],m22,i);
m2:=10*m21+m22;
 
val(time2[7],s21,i);
val(time2[8],s22,i);
s2:=10*s21+s22;
 
{второе закончили}
{начало проблемного участка}
.....
.....
{конец проблемного участка}
for i:=1 to 10 do
writeln(a[i]);
{выводим ответ}