Delphi, прошу помочь.

[Алексей 21]

1.Подсчитайте число букв “x” в последнем предложении заданной строки.
2.Определите, есть ли в заданной строке некоторая подстрока.

[Вадим Мошев]

А в чём сложности у вас?

[Алексей 21]

я не знаю как делать)

[Streletz]

Сообщение от Алексей 21

я не знаю как делать)

Читайте конспекты лекций, учебники, статьи и похожие темы в Интернете. На худой конец, подойдите с вопросом к преподавателю.
И тогда Ваша проблема решится сама собой.
Если же несмотря на полученные знания возникнут трудности с практической реализацией, то задавайте конкретные вопросы и выкладывайте Ваши наработки.
Начните что-то делать сами, а закончить, в крайнем случае, помогут.
А, так...

[newerow1989]

var s,sub:string;
    i,n:integer;
    c:char;
begin
   Write('fraza = ');Readln(s);
   Write('bukva = ');Readln(c);
   Write('podstroka = ');Readln(sub);
   n:=0;
   For i:=Length(s) downto 1 do
   begin
      If (i=Length(s)) and (s[i]='.') then
         Continue;
      If s[i]='.' then
         Break;
      If s[i]=c then
         n:=n+1;
   end;
   Writeln('bukw = ',n);
   If Pos(sub,s)>0 then
      Writeln('yest podstroka. URA!!!') else
      Writeln('net podstroki. KOSHMAR!!!');
   Readln;
end.

Сойдет?