Hogy kell ezt a karakterláncos programot megírni Pascalban?

C#-pban tudok segíteni:

string s = "Ez a macska egy nagyon macskás nagy macska";

int Count = (from Current in s.Split(' ') where Current.ToLower == "macska" select Current).Count();

//Count = 2

ToLower()

Bocsánat.

Mivel látom, hogy belekezdtél :

program keres;

var s, s_, sub : string;

i, n : byte;

begin

i:=0;

sub :='macska';

s :='Macska ez bizony macska, egy nagyon nagy macska';

s_ := s;

while Length(s) >= Length(sub) do

begin

n := Pos(LowerCase(sub), LowerCase(s));

if n > 0 then Inc(i);

Delete(s, 1, n + Length(sub));

end;

WriteLn('A "', s_, '" mondatban a ', sub, ' szo ', i, ' alkalommal fordul elo');

end.