program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..500000] of widechar;
b:array[1..32000] of widechar;
i,j,k:longint;
s1,s2:widestring;
f:boolean;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
readln(s1);
k:=0;
for i:=1 to length(s1) do
b[i]:=s1[i];
read(s2);
for i:=1 to length(s2) do
a[i]:=s2[i];
for i:=1 to (length(s2)-length(s1)+1) do
begin
  for j:=1 to length(s1) do
  begin
   if b[j]=a[j+i-1] then
   f:=true
   else
   begin
     f:=false;
     break;
   end;

 end;
 if f then
   begin
     if ((a[i+j-1]=' ')or(a[i+j-1]='.')or(a[i+j-1]=',')or(i+j-2=length(s2)))and((a[i-1]=' ')or(a[i-1]='.')or(a[i-1]=',')or(i-1=0)) then
     f:=true
     else f:=false;
   end;
 if f then inc(k);
end;
writeln(k);
 close(input);
 close(output);
end.

program Search; // Demo from _SGK :)

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes;

var
  SL: TStringList;
  CurrentValue: String;
  ValueForSearch: String;
  TemporaryValue: String;
  Outcome: DWORD;
  OperatingTime: DWORD;
  StartTime: DWORD;
  i, j: DWORD;
  Separators: Set of Char;
begin
  Separators:= [' ', '.', ','];
  Outcome:= 0;
  if ParamCount = 1 then
  begin
    if FileExists(ParamStr(1)) then
    begin
      StartTime:= GetTickCount; // Перенес начало замера времени. :)
      SL:= TStringList.Create;
      try
        SL.LoadFromFile(ParamStr(1));
        if SL.Count >= 2 then
        begin
          ValueForSearch:= SL.Strings[0];
          for i:= 1 to SL.Count - 1 do
          begin
            TemporaryValue:= '';
            CurrentValue:= SL.Strings[i];
            for j:= 1 to Length(CurrentValue) do
            begin
              if not (CurrentValue[j] in Separators) then
                TemporaryValue:= TemporaryValue + CurrentValue[j]
              else
                if TemporaryValue = ValueForSearch then
                begin
                  Inc(Outcome);
                  TemporaryValue:= '';
                end
                else
                  TemporaryValue:= '';
            end;
            if TemporaryValue = ValueForSearch then
              Inc(Outcome);
          end;
        end;
        OperatingTime:= GetTickCount - StartTime;
      finally
        SL.Free;
      end;
      WriteLn('');
      WriteLn('Total: ', Outcome);
      WriteLn('Executed in ', OperatingTime, ' ms.');
      WriteLn('');
      WriteLn('Press Enter');
      ReadLn(CurrentValue);
    end;
  end
  else begin
    WriteLn('WARNING!');
    WriteLn('Usage: Search.exe [filename]');
  end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL:= TStringList.Create;
  try
    SL.Add('бла-бла-бла');
    SL.Add('учим ООП');
    SL.Add('срочно');
    SL.Exchange(0, SL.Count -1);
    SL.SaveToFile('C:\бла-бла-бла.txt'); // Смотрим результат ;)
  finally
    SL.Free;
  end;
end;

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  list_d=record
    pole:string[100];
  end;

  ff=file of list_d;
pel_list=^list;
  list=record
  li:list_d;
  next:pel_list;
end;
var lp,plist,pstart:pel_list;
  f:ff;
  li:list_d;
  i,n,str_v_t,str_v_l:integer;
procedure init;
begin
  pstart:=nil;
end;
procedure insert_list_fr_file(el: list_d; var svl:integer);
  begin
  new(pList);
  if pStart=nil then
    begin
      if length(el.pole)<=30
        then
          begin
            with pList^ do
              begin
                li.pole:=el.pole;
                next:=nil;
              end;
            pstart:=plist;
            lp:=plist;
          end;
    end
    else
    begin
      if length(el.pole)<=30
        then
          begin
            lp^.next:=plist;
            with pList^ do
              begin
                li.pole:=el.pole;
                next:=nil;
              end;
            lp:=plist;
            svl:=svl+1;
          end;
     end;
  end;



procedure list_create(var stvl:integer);
  begin
    init;
    assign(f,'file.dat');
    reset(f);
    while not eof(f) do
      begin
        read(f,li);
        insert_list_fr_file(li,stvl);
      end;
    end;
procedure list_vivod;
  var i:integer;
    begin
      i:=1;
      lp:=pstart;
      writeln('std');
      while lp<>nil do
        begin
          writeln(lp^.li.pole);
          lp:=lp^.next;
          i:=i+1;
        end;
      end;
procedure del_list;
  begin
    lp:=pstart;
    while lp<>nil do
      begin
        plist:=lp;
        dispose(plist);
        lp:=lp^.next;
      end;
  end;

procedure save_to_file(var svt:integer);
  var k:char;
    i,n:integer;
    s:string;
begin
assign(f,'file.dat');
rewrite(f);
   repeat
     with li do
      begin
        readln(pole);
        s:=pole;
      end;
    write(f,li);
    svt:=svt+1;
    until s[length(s)]='.';
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }

//здесь будет типа меню с помощью Case of и будут вызываться все эти процедуры.
  save_to_file(str_v_t);
  list_create(str_v_l);
  list_vivod;
  writeln('strok v texte: ',str_v_t);
  writeln('strok v spiske: ',str_v_l+1);
//   del_list;
   readln;
end.

procedure list_Exchange(Index1, Index2: Longword);
var
  i: Longword;
  p1, p2: Pointer;
begin
  if Index1 > Index2 then
  begin
    i:= Index1;
    Index2:= Index1;
    Index1:= i;
  end;
  GetMem(p2, SizeOf(lp^.li.pole));
  try
    i:= 1;
    lp:= pstart;
    while lp <> nil do
    begin
      if i = Index1 then
        p1:= @lp^.li.pole;
      if i = Index2 then
      begin
        CopyMemory(p2, @lp^.li.pole, SizeOf(lp^.li.pole));
        CopyMemory(@lp^.li.pole, p1, SizeOf(lp^.li.pole));
        CopyMemory(p1, p2, SizeOf(lp^.li.pole));
        Break;
      end;
      lp:= lp^.next;
      Inc(i);
    end;
  finally
    FreeMem(P2, SizeOf(lp^.li.pole));
  end;
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }

//здесь будет типа меню с помощью Case of и будут вызываться все эти процедуры.
  save_to_file(str_v_t);
  list_create(str_v_l);
  list_Exchange(1, 2); // Перестанавливает.
  list_vivod;
  writeln('strok v texte: ',str_v_t);
  writeln('strok v spiske: ',str_v_l+1);
//   del_list;
   readln;
end.