program StrMatchTest(input, output);

type rivi = varying [60] of char;
     jono = varying [10] of char;

var maara: integer;
    r: rivi;
    j: jono;

{------------------------------------------------}
{Tehtävä 8.5&6 c)                                }
{------------------------------------------------}
procedure StringMatch(mista: rivi; mita: jono;
                      var kpl: integer);
  var alkuosa: integer;
begin
  kpl := 0;
  alkuosa := index(mista, mita);
  while alkuosa <> 0 do 
    begin
      kpl := kpl + 1;
      mista := substr(mista, alkuosa+1, 
                      length(mista)-(alkuosa));
      alkuosa := index(mista, mita);
    end;
end;

begin 
  repeat
    writeln('anna rivi');
    readln(r);
    writeln('anna etsittävä');
    readln(j);
    StringMatch(r, j, maara);
    writeln(maara);
  until j = '';

end.