люди пожалуйста помогите. очень нун . решить задачу в паскале ( удалить все "," из строки и подсчитать количество символов "F", стоящих после "+", и количество символов "F", стоящих после "-" (отдельно)

Вот после '+'

Program Pr1;uses crt;var stroka:string; i,b:integer;Beginclrscr;b:=0;writeln('Vvedite Stroku');readln(stroka);i:=1;for i:=1 to length(stroka) do if stroka[i]=',' then delete(stroka,i,1);writeln(stroka);for i:=1 to length(stroka) do if stroka[i]='+' then begin delete(stroka,i,1); break; end;for i:=1 to length(stroka) do if stroka[i]='F' then b:=b+1;writeln('Posle + ',b);end.

Вот отдельно после "-" 

Program Pr1;uses crt;var stroka:string; i,b:integer;Beginclrscr;b:=0;writeln('Vvedite Stroku');readln(stroka);i:=1;for i:=1 to length(stroka) do if stroka[i]=',' then delete(stroka,i,1);writeln(stroka);for i:=1 to length(stroka) do if stroka[i]='-' then begin delete(stroka,i,1); break; end;for i:=1 to length(stroka) do if stroka[i]='F' then b:=b+1;writeln('Posle - ',b);end.