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