Найти в исходном символьном массиые слово РАК ... Опции

[Анна]

Код

Найти в исходном символьном массиые слово РАК и заменить его в результирующем массиве словом ЩУКА без потери символов

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

Почему-то у Вас файлы не прикрепляются , пришлось попросить помощи
Вот ссылка на мой алгоритм: http://ork.53535.ru/Drawing2.vsd

[klem4]

вот так лучше ?

uses crt;
const
   fish : array [0..3] of char = ('щ','у','к','а');
   limits = [#0..#32,'.',',','!','?',':','"'];

var

   s : array[1..80] of char;
   n,i,j : byte;

begin

   clrscr;

   write('n='); readln(n); // количество элементов в массиве

   FillChar(s, sizeof(s),0); 

   for i := 1 to n do readln(s[i]); // посимвольный ввод строки

   writeln;

   for i := 1 to n do write(s[i]); // вывод строки на экран

   {$r-} // отключение проверки выхода за границы массива
   i := 1;

   while(i<=length(s)-2) do begin (* внешний цикл до момента достижения
   i = length(s) -2, так как это последнй шанс когда там может находиться                 слово РАК *)  
      while(i<=length(s)-2) and (s[i] in limits)
       do inc(i); // проходим по массиву пока не найдем букву

    if (i<=length(s)-2) and (s[i] = 'р') and (s[i+1]='а') and (s[i+2]='к') and (s[i+3] in limits) then begin 
(* Если начиная с найденной буквы следует слово РАК и за ним следует НЕ буква или оно стоит в конце массива, 
то сдвигаем все символы на один элемент вправо и 
начиная с символа хранащего букву Р слова РАК вставляем слово ЩУКА
*)
       for j := n + 1 downto i do s[j] := s[j-1];
       for j := 0 to 3 do
        s[i+j] := fish[j];
        inc(i,4); // проскакивае далее по массиву через добавленое слово ЩУКА
        inc(n); (* длина массива увеличилась на единицу, так как щука длинее рака на один символ )
*)
    end
(* Если найденная группа букв НЕ слово рак с пробелом до и после него или
стоящее в конце строки, то идем по массиву дальше пока не закончится этот набор букв или строка
*)
     else repeat
        inc(i);
     until (s[i] in limits) or (i=length(s)-2);
   end;

   writeln;

   for i := 1 to n do write(s[i]); // выводм результат на экран.

   readln
end.