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

uses crt;

var
  x, x1, i, c, dl, ch, n: integer;
  word, word1, k: string;

label 1;

begin
  clrscr;
  writeln('Введите первое слово');
  readln(word);
  writeln('Введите второе слово');
  readln(word1);
  dl := length(word1);
  k := copy(word, 1, 1);
  ch := 0;
  n := pos(k, word1);
1:
  if n > 0 then
  begin
    ch := ch + 1;
    Delete(word1, 1, n);
    dl := length(word1);
    if dl > 0 then
    begin
      n := pos(k, word1);
      goto 1;
    end
  end;
  writeln('Во втором слове буква ', k, ' встречается ', ch, ' раз(а)');

end.