Помогите решить задачи Pascal

1) tmp := str; kol := 0; repeat p := pos('-+=', tmp); if p > 0 then begin inc(kol); delete(tmp, p, 3); end; until p = 0;
2) repeat p := pos(#32#32, str); if p > 0 then delete(str, p, 1); until p = 0;
3) for p = length(str) - 1 downto 1 do if (str[p] = 'b') and (str[p + 1] = 'b') then insert('cc', str, p+2);
4) while pos('&&&', str) > 0 do delete(str, pos('&&&', str), 3);
5) tmp := ''; for p := 1 to length(str) do if (str[p] = #32) and (length(tmp) > 0) then begin writeln(tmp); tmp := ''; end else tmp := tmp + str[p]; if length(tmp) > 0 then writeln(tmp);
6) tmp := ''; n := 0; k := 0; for p := 1 to length(str) do if (str[p] = #32) and (length(tmp) > 0) then begin inc(n); if n = 3 then for i := 1 to length(tmp) do if tmp[ i ] = 'e' then inc(k); tmp := ''; end else tmp := tmp + str[p]; if (length(tmp) > 0) and (n = 2) then begin inc(n); for i := 1 to length(tmp) do if tmp[ i ] = 'e' then inc(k); end;
if n < 3 then writeln('нет трёх слов') else writeln(k);

Что именно непонятного?

вы что, вообще там абсолютно ничего не шарите?? ?
за 2$ сделаю. с гарантией ;)

для 1)
function N(X:string):byte;
var
c,l:integer;
begin
l:=length(x)-2;
result:=0;
while c