TP06_01

program TP06_1;

function countLetter(ch:char; s:string):integer;
// para resolver el punto 1-A
var i,len,cont:integer;
begin
     len := Length(s);
     cont:= 0;
     for i:= 1 to len do begin
         if s[i] = ch then begin
             cont := cont + 1;
         end;
     end;
     countLetter := cont;
end;

function puntoB(c1, c2:char; s:string):integer;
// para resolver el punto B
var i,len,cont:integer;
begin
     cont := 0;
     i := 1;
     len := Length(s);
     while (i < len) do begin
         if (s[i] = c1) and (s[i+1] = c2) then begin
             cont := cont + 1;
         end;
         i := i + 1;
     end;
     puntoB := cont;
end;

var str:string; len, cantF, cant:integer;
begin
     str := 'el futbol arrasa multitudez.';
     // punto 1
     len := Length(str);
     writeln('Cantidad de caracteres leidos: ', len);
     // punto 1 - a
     cantF := countLetter('f', str);
     writeln('Cantidad de letras f leidas: ', cantF);
     // punto 1 - B
     cant := puntoB('r','a',str);
     writeln('Cantidad de letras r seguida de a: ', cant);

     readKey;


end.