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.