Задачка на замену символов, Pascal Опции

[PALADIN]

Условие:
Написать программу, заменяющую все подсловия abc на def. Удалить все пробелы и точки. Процедуры НЕ использовать.


После значительной мозговой атаки получилось у меня вот что :

str: string[1..255];
     for i = 1 to lenght (str) do
begin
     if ((str[i]="a") and
     (str[i+1]="b") and
     (str[i+2]="c")) then
      str[i]:="d";
      str[i+1]:="e";
      str[i+2]:="f";


     if (str[j] = ".") then
     for j = i+1 to lenght
     str[j-1] := str [j];

помогите привести задачку к окончательному варианту, а то скоро сдавать

[volvo]

S!n

У себя не проверял, но работать должно.

Что именно? Присвоение строки в переменную типа Integer? Каким компилятором, если не секрет, пользуешься, что там ТАКОЕ должно работать?

Kascader-у: за намеренное введение в заблуждение в следующий раз получишь минус, предупреждаю сразу... Вот за это в частности:

for i:=1 to 50 do { <--- Запомни, цикл по i }
begin
stroka:=stroka+char(97+random(26));
for i:=1 to length(stroka) do; { <--- Еще один по i - НЕЛЬЗЯ !!! }

Это я не говорю о том, что у тебя второй цикл вообще ПУСТОЙ, точка с запятой его закрывает сразу же... А говоришь "Юзай". Чего тут юзать-то?

Напоминаю, вверху написано:

7. Проверяйте программы перед тем, как разместить их на форуме!!!

Это написано далеко не просто так...