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