Люди пожалуйста помогите. Очень нун. Решить задачу в паскале (удалить все "," из…

Вот после '+' 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.