Задачка на замену символов, 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];

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