Удалить из состава строки последовательности

[bingooo]

Символами строки являются большие и малые латинские буквы. Удалить из состава строки последовательности 'abcd', в составе которых могут быть как большие, так и малые буквы.

Помогите плз!!!

[999Crow999]

Мой вариант решение задачи)

program lab;
uses crt;
var i: integer;
s: string;
begin clrscr;
write('BBEDUTE CTPOKY=');
read(s);
for i:=1 to length(s) do
begin
if s[i]='a' then begin
if s[i+1]='b' then begin
if s[i+2]='c' then begin
if s[i+3]='d' then
delete(s,i,4);
end;
end;
end;
end;
writeln('PE3Y/ITAT=',s);
readln;
readln;
end.

[999Crow999]

Мой вариант решение задачи)

program lab;
uses crt;
var i: integer;
s: string;
begin clrscr;
write('BBEDUTE CTPOKY=');
read(s);
for i:=1 to length(s) do
begin
if upcase(s[i])='A' then begin
if upcase(s[i+1])='B' then begin
if upcase(s[i+2])='C' then begin
if upcase(s[i+3])='D' then
delete(s,i,4);
end;
end;
end;
end;
writeln('PE3Y/ITAT=',s);
readln;
readln;
end.

[Grag]

Ни один из вариантов работать правильно не будет! Т.е. решение задачи неверное.

[bingooo]

Почему? вот мой вариант, мо он не работает:
var
a:string;
b:array[1..100]of string;
c:array[1..100]of integer;
i,j,k:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=' '+a;
for i:=1 to length(a)do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:= 1 to k do
for j:=1 to i do
if b[i]=b[j] then inc (c[i]);

for i:=1 to k do
if c[i]=1 then write(b[i],' ');
readln;
end.

Помогите найти ошибку!!!

[Grag]

А это к какой задаче вообще относится??? А разве это ТВОЙ вариант решения?

[bingooo]

то я протупил( не то скинул(( а как в задаче 999Crow999 сделать, чтобы и большие буквы считало??

[Grag]

Да у него вообще реализация алгоритма неверная. Неизбежна ошибка выхода параметра цикла за границу (Out of range).

[bingooo]

а если ввести функции upcase и lowcase?

[Grag]

А ты в Паскале видел ф-цию LowCase??? Если только сам сделаешь её реализацию...