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

[Анна]

Код

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

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

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

[Анна]

Вот, закончила работу над алгоритмом, а также программой, вот что получилось.
БОЛЬШАЯ просьба: подправьте меня, если что не так ...

Program Kursovik;
var
  i, j, x, k, n : Integer;
  a, b : array[1..1000] of Char;
  s: string;
begin
writeln('Введите строку: ');
readln(s);
  i:=1; j:=1; k:=0; x:=0;
  repeat
  x := x + 1;
  a[x]:=s[x];

  until x = length(s);
  while not (i > x) do
  begin
  if not (a[i-1] in [#160.. #175, #224..#239])   then
    if a[i] = 'р' then
      if a[i+1] = 'а' then
        if a[i+2] = 'к' then

           if not (a[i+3] in [#160.. #175, #224..#239])   then
              begin

              b[j] := 'щ';
              b[j+1] := 'у';
              b[j+2] := 'к';
              b[j+3] := 'а';


              i := i + 3;
              j := j + 4;
              end
  else begin b[j] := a[i]; i := i + 1; j := j + 1; end
    else begin b[j] := a[i]; i := i + 1; j := j + 1; end
      else begin b[j] := a[i]; i := i + 1; j := j + 1; end
        else begin b[j] := a[i]; i := i + 1; j := j + 1; end
          else begin b[j] := a[i]; i := i + 1; j := j + 1; end

  end;
  write('Результат: ');
  repeat
  k := k + 1;
  write(b[k]);
  until k = j;
readln;
end.