program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function FF(const aTmpl, aSrc: string): Boolean;
var
  fpTB, fpTE: PChar;
  fpSB, fpSE: PChar;
begin
  Result := True;
  if aTmpl = '' then Exit;

  fpTB := PChar(aTmpl);
  fpTE := fpTB + Pred(Length(aTmpl));

  fpSB := PChar(aSrc);
  fpSE := fpSB + Pred(Length(aSrc));

  while ((fpSB^ = fpTB^) or (fpSE^ = fpTE^)) and (fpTB <> fpTE) do begin

    if fpSB^ = fpTB^ then begin
      Inc(fpSB);
      Inc(fpTB);
    end;

    if fpTB <> fpTE then
      if fpSE^ = fpTE^ then begin
        Dec(fpSE);
        Dec(fpTE);
      end;

  end;

  Result := (fpSB^ = fpTB^) or (fpSE^ = fpTE^)


end;

begin
  Assert(FF('', '123'));
  Assert(not FF('123', ''));
  Assert(FF('13', '1**************3'));
  Assert(FF('3', '123'));
  Assert(FF('123', '123'));
  Assert(FF('13', '123'));
  Assert(FF('', 'Рыба не ловится в зимней реке'));
  Assert(FF('Рыба', 'Рыба не ловится в зимней реке'));
  Assert(FF('реке', 'Рыба не ловится в зимней реке'));
  Assert(FF('Рыба в зимней реке', 'Рыба не ловится в зимней реке'));
  Assert(not FF('Рыба в реке', 'Рыба не ловится в зимней реке'));
  Assert(FF('Ре', 'Рыба не ловится в зимней реке'));
  Assert(FF('Рыке', 'Рыба не ловится в зимней реке'));
  Assert(FF('е', 'Рыба не ловится в зимней реке'));
  Assert(FF('Рыба не ловится в зимней реке',    'Рыба не ловится в зимней реке'));



end.