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

Вот после '+'   Program Pr1; uses crt; var stroka:string; i,b:integer; Begin clrscr; 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; Begin clrscr; 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.