Разработка программ обработки символьных массивов

[3JIY4KA]

Замените в введенном тексте все группы букв “abcd” на “abc”.
плиз хелп, заранее спасибо
и если можно проверти или правильнонаписана програма (Найти сумму целых положительных чисел, больших 20, менших100 и кратных 3.) :

program xxx;
uses CRT;
var a1,a,n, a2:integer;
begin
clrscr;
a1:=20;
a2:=100;
a:=a1+1;
n:=0;
while a<a2 do
begin
if a mod 3=0 then n:=n+a;
inc (a);
end;
write (n);
readkey;
end.

[Костя КС]

вот тебе прога

program www;
var
st : string;
 s : string;
 
begin
readln(st);
repeat
s := copy(st,1,pos('abcd',st)-1);
delete(st,1,pos('abcd',st)+4);
st := s + 'abc' + st;
until pos('abcd',st) = 0;
writeln(st);
end.

[Костя КС]

а во второй ответ у меня такой же , но решение по-проще

program xxx;
var
i : integer;
a : integer;
begin
a := 0;
for i := 21 to 100 do
begin
if (i mod 3)=0 then a := a+i;
end;
writeln(a);
end.

буду благодарен, если ты мне репутацию поправишь
(надоело в новичках)

[puporev]

Во второй задаче смысл немного другой. Там видимо надо вводить разные числа, и если они подходят по условию, то складываются, и код будет другой.

program xxx;
uses CRT;
var a,sum:integer;
begin
clrscr;
sum:=0;
repeat
readln(a);
if (a>20)and(a<100)and(a mod 3=0) then
sum:=sum+a;
until readkey='n';
writeln ('sum=',sum);
readln;
end.

[Костя КС]

да, так оно, наверное,и должно быть.
Спасибо за наставление на путь истенный.
я сёдня везде что-нибудь да напортачил.
сразу видно - новичок!