Обработка строк - удаление предыдущего символа строки при появлении #

[a999a1]

Дан текст, заканчивающийся точкой. Среди символов текста особую роль играет символ #, появление которого в тексте означает удаление предыдущего символа. Соответственно, k символов # подряд отменяют k предыдущих символов текста, если таковые имеются на текущей строке.
Требуется написать программу, преобразующую текст с учетом указанного значения символа #.
1)Если в какой-то момент перед некоторым символом # на этой строке не осталось символов, то его следует игнорировать.
2) В выходной файл символы # выводить не следует ни в каком случае.
3) Если в результате преобразований все символы в строке входного файла были удалены, то в выходном файле в этом месте следует вывести пустую строку.

Пример ввода:
Hello ww#orld! #
Пример вывода:
Hello world!

помогите плиз!

[Serge_Bliznykov]

так устроит?

var f1, f2 : text;
  s : string;
  i : integer;
  flagEnd : boolean;
begin
  Assign(f1,'input.txt');
  Assign(f2,'rezzult.txt');
  Reset(f1);
  Rewrite(f2);
  flagEnd := false;
  while not eof(f1) and not flagEnd do begin
    Readln(f1,s);
    i := 1;
    while i<=length(s) do begin
      if s[i]='.' then begin
        s := copy(s, 1, i);
        flagEnd := true;
        Break
      end
      else
       if (s[i]='#') then begin
         if i=1
           then Delete(s, 1, 1)
           else Delete(s, i-1, 2)
       end
       else Inc(i);
    end;
    WriteLn(f2, s);
  end;
  Close(f1);
  Close(f2);
end.

это с прерыванием, если в тексте обнаружена точка.
Если выкинуть проверку (и код прерывания программы) в случае точки в тексте, то программа ещё больше упростится!

[a999a1]

да спасибо большое. а можешь небольшое пояснение к коду написать

[Serge_Bliznykov]

могу. спрашивай, что непонятно в коде.

[a999a1]

ммм мне просто на экзамен нада эта задача и почти к каждой строке нужно пояснение
вдруг я не все правильно напишу. напиши плиз

[ZX Spectrum-128]

Так вы напишите, в какой именно строчке непонятки. Не всю же программу комментировать?

[Serge_Bliznykov]

вдруг я не все правильно напишу.

пишите. выкладывайте результат сюда.
Если что-то не так или непонятно - поправим.
А уж описывать

var f1, f2 : text; {объявляем две файловые переменные для обработки 
                  текстовых файлов, f1 - для входного файла, f2 - для выходного}

увольте.

Т.е. можно, конечно, но механический нудный труд должен чем-то компенсироваться! Деньгами, например!

[a999a1]

можешь написать к этой части программы

flagEnd := false;
  while not eof(f1) and not flagEnd do begin
    Readln(f1,s);
    i := 1;
    while i<=length(s) do begin
      if s[i]='.' then begin
        s := copy(s, 1, i);
        flagEnd := true;
        Break
      end
      else
       if (s[i]='#') then begin
         if i=1
           then Delete(s, 1, 1)
           else Delete(s, i-1, 2)
       end
       else Inc(i);

[Serge_Bliznykov]

всё, что касается flagEnd - это для прерывания цикла при нахождении точки.
сначала признак (он же флажок, он же булевая переменная, он же семафор), перед основным циклом ставим его в ЛОЖЬ (точку ещё не встретили)
потом

пока не (конец файла) и не признак_окончания делать
  прочитать строку в s
  взять индекс = 1 ( первй символ строки)

  пока индекс меньше или равен длины строки начать
    если "точка"  то
          сохраним строку до текущего символа (читай до точки)
          признак_окончания установить в ИСТИНА
          прервать цикл по индексу
    иначе (не точка)
       если символ="#' тогда
           если обрабатываемый символ первый в строке
                      тогда удалим только его
           иначе
                удалить два символа: текущий и предыдущий
       иначе (значит, символ и не точка и не #)
          нарастить индекс на единицу (т.е. перейти на следующий символ)