1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.FormCreate(Sender: TObject);
var a:Array of string;
 st:string;
 i,j,g:byte;
begin
 setlength(a,3);
 a[1]:='face';
 a[2]:='face lol';
 a[3]:='lol face';
for i:=1 to 3 do
 begin
  st:=a[i];
 for g:=0 to length(st)do
  if (st[g]='f') and (st[g+1]='a') then
   inc(j);
 end;
label1.caption:=floattostr(j);
end;
end.					

1:
2:
3:
4:
5:

setlength(a,3);
 a[0]:='face';
 a[1]:='face lol';
 a[2]:='lol face';
for i:=0 to 2 do