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

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