Даны 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.