Преобразование массива в паскале

[street_spirit]

Помогите, пожалуйста, с задачей.
Пользователь с клавиатуры вводит некий текст, и он записывается в массив из char'ов (string по условию использовать нельзя). Среди литер текста особую роль играет знак # , появление которого означает отмену стоящей перед ним буквы, несколько знаков # означает отмену аналогичного числа букв. Создать массив заполненный текстом из первого массива с учетом роли этого знака. (ХЭ#E##НЕLO#LO = HELLO).

По моей задумке текст записывается в массив а, затем копируется в массив b. Циклом мы пробегаем по массиву b и как только доходим до # мы сдвигаем массив влево на 2 символа, тем самым удаляя # и стоящий перед ним символ.

Я написал код, но он не работает. Помогите разобраться, в чем ошибка. Заранее спасибо

const n = 80;
type symbols = array[1..n] of char;
var a,b,d:symbols; i,j:integer; c: char;

begin
writeln('Vvedite tekst: ');
i:=0;
repeat
 read(c);
 if (c<>chr(10))and(c<>chr(13)) then
 begin
  inc(i);
  a[i]:=c;
 end;
until (c=chr(10))or(i=N);

b:=a;

i:=1;
while (b[i]<>#0)and(i<=n) do
 begin
  if b[i]='#' then
   begin
     j:=i-1;
     while (b[j]<>#0)and(i<=n) do
      begin
       b[j]:=a[j+2];
       inc(j);
      end;
     i:=i-1;
   end
  else
  inc(i);
 end;

i:=1;
while (b[i]<>#0)and(i<=n) do
 begin
 write(b[i]);
 inc(i);
 end;


readln;
end.

[Serge_Bliznykov]

зачем здесь ДВА прохода? Это же классический однопроходный алгоритм.
Заводите Указатель (индекс == переменную, которая показывает, какой элемент массива будет записан). Встречаем букву - добавляем её в массив, индекс увеличиваем. Встречаем # - уменьшаем индекс.

Всё. Больше ничего не надо делать!

[street_spirit]

Serge_Bliznykov, а нельзя ли немножко по подробней. А то что-то не очень понятно(

[Serge_Bliznykov]

ну, примерно так:

const n = 80;
type symbols = array[1..n] of char;
var a: symbols; i, j: integer; c: char;

begin
  writeln('Vvedite tekst: ');
  i := 0;
  repeat
    read(c);
    if (c <> chr(10)) and (c <> chr(13)) then
    begin
      if c = '#' then begin
        if i > 0 then Dec(i);
      end
      else begin
        inc(i);
        a[i] := c;
      end;
    end;
  until (c = chr(10)) or (i = N);

{вывести результат}
  Writeln;
  Write('Result string = ');
  for j := 1 to i do Write(a[j]);
  WriteLn;

  Readln;
end.

[Serge_Bliznykov]

ну, примерно так:

const n = 80;
type symbols = array[1..n] of char;
var a: symbols; i, j: integer; c: char;

begin
  writeln('Vvedite tekst: ');
  i := 0;
  repeat
    read(c);
    if (c <> chr(10)) and (c <> chr(13)) then
    begin
      if c = '#' then begin
        if i > 0 then Dec(i);
      end
      else begin
        inc(i);
        a[i] := c;
      end;
    end;
  until (c = chr(10)) or (i = N);

{вывести результат}
  Writeln;
  Write('Result string = ');
  for j := 1 to i do Write(a[j]);
  WriteLn;

  Readln;
end.

[street_spirit]

Serge_Bliznykov, спасибо, ваша программа действительно работает..но она не подходит по условию задачи, к сожалению. У вас ненужные символы сразу отметаются как только пользователь их вводит. А в условии сказано, что сначала пользователь вводит данные в массив и на его основе создается 2й массив уже перобразованный. : (

[Serge_Bliznykov]

Господи. ну это же ещё проще (тот же подход, только количество входных символом уже известно и на chr(10) chr(13) не надо проверять):

Kol := i; {рекомендую сохранить количество элементов в переменную Kol, 
            так нагляднее и понятней}
i:=0;
for j:=1 to Kol do
  if a[j]<>'#' then begin
    inc(i);
    b[i] := a[j];
  end
  else begin
    if i>0 then Dec(i);
  end;

{вывести результат}
  Writeln;
  Write('Result string = ');
  for j := 1 to i do Write(b[j]);
  WriteLn;

[Mad_Cat]

а зачем тут 2 массива

b[i] := a[j];

все ж можно в 1 сделать

var s:array[1..13] of Char;
    i:Integer;
    k:Integer;
    n:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  s:='XR#E##HELO#LO';
  i:=1;
  n:=13;
  while i<=n do
  begin
   if s[i]='#' then begin
   for k:=i-1 to n-2 do
      begin
      s[k]:=s[k+2];
       end;
      Dec(n,2);
      dec(i);
      end
   else inc(i);
  end;
 for i:=1 to n do
 write(s[i]);
 Readln;
end.

[Serge_Bliznykov]

Mad_Cat, а Вы только мой последний пост читали? Или всю тему прочли?
Если только мой последний пост, тогда сообщаю Вам, что требование о втором массиве (по утверждению автора топика) — это обязательное требование задачи:

в условии сказано, что сначала пользователь вводит данные в массив и на его основе создается 2й массив уже перобразованный

[street_spirit]

Serge_Bliznykov, cпасибо огромное!