Дана последовательность символов, в начале которой имеется некоторое количество одинаковых символов. Определить это количество — Pascal(Паскаль)

uses crt;
var s: string; i: byte;
begin
s:='00045';
clrscr;
writeln('исходная строка: ',s);
i:=2;
while s[i]=s[1] do
inc(i);
write('кол-во = ',i-1);
end.