начальные сведения о Турбо Паскале (практикум)

### Ввести программу в сиситему программирования Паскаль, запустить на выполнение, проанализировать полученный результат.
PROGRAM STROKAINC1;
VAR
S,S1,S2:STRING;
K,I:INTEGER;
BEGIN
WRITELN('ВВЕДИТЕ ИСХОДНУЮ СТРОКУ');
READLN(S);
WRITELN('ВВЕДИТЕ СЛОВО, КОТОРОЕ СЛЕДУЕТ ИСКАТЬ');
READLN(S1);
S2:=S;
K:=0; {СЧЕТЧИК ВХОЖДЕНИЯ ИСКОМОГО СЛОВА В СТРОКУ}
WHILE POS(S1,S)>0 DO
BEGIN
K:=K+1;
DELETE(S,POS(S1,S),LENGTH(S1));
END;
WRITELN('КОЛИЧЕСТВО ВХОЖДЕНИЙ=',K);
END.