Даны 2 слова. Определить сколько начальных букв первого слова совпадает с начальными буквами второго слова

1) uses crt; 2) var 3) s1,s2:string; 4) i,k:integer; 5) begin 6) k:=0; 7) writeln('pervoe slovo?'); 8) readln(s1); 9) writeln('vtoroe slovo?'); 10) readln(s2); 11) for i:=1 to length(s1) do begin 12) if (s1[i]=s2[i]) and (k=i-1) then 13) k:=k+1; 14) end; 15)writeln(k); 16)End.