Сколько раз во втором слове встречается первая буква первого слова — Pascal(Паскаль)

uses crt;
var
s1,s2:string;
i,k:integer;
begin
 clrscr;
 writeln('Vvedite pervoye slovo');readln(s1);
 writeln('Vvedite vtoroye slovo');readln(s2);
 k:=0;
 for i:=1 to length(s2) do
  if s1[1]=s2[i] then inc(k);
 writeln('Pervaya bukva pervogo slova vstrech vo vtorom slove ',k,' raz');
 readln
end.