Процедура на стринги !eror!, помогите найти ошибку... Опции

[Alex7]

Сделал програмку. все работает правильно, не считая, того, что зависает почему-то! в чем дело?
Задание:

Код

Разработать процедуру, которая удаляет слова, начинающиеся на заданую букву в заданом стринге.
На основе разработаной процедуры преобразовать текст оодного тхт файла в новый.

Вот прога:

Program DeleteWord;
Uses    CRT;
Var     f1,f2: text;
        f1name,f2name,st: string;
        s,s1: char;

Procedure delword(Var st:string; s:char);
Const delimiter=[' ',',','.','?','!','(',')','/'];
Var i: byte;
begin
 If s in [#65..#90] then s1:=Chr(Ord(s)+32) else s1:=Upcase(s);
 i:=1;
 While i<=length(st) do
    If (i=1) and ((st[i]=s)or(st[i]=s1)) then
     Repeat delete(st,i,1) Until st[i] in delimiter else
     If (st[i] in delimiter) and ((st[i+1]=s)or(st[i+1]=s1)) then
      Repeat delete(st,i+1,1) Until st[i+1] in delimiter else
       Inc(i)
   {If (i=1) and (st[i]=s) then delete(st,i,Pos(' ',st)-i) else
     If (st[i]=' ') and (st[i+1]=s) then delete(st,i,Pos(' ',st)-i) else
      Inc(i)}
end;

Begin
 clrscr;
 Repeat
     Writeln('Введите имя файла'); readln(f1name);
     assign(f1,f1name);
     {$I-}
     reset(f1);
     {$I+}
     if IOResult<>0 then
      writeln('Неверно!!');
 Until IOResult=0;
 f2name:='new'+f1name;
 assign(f2,f2name); rewrite(f2);
 Writeln('Введите букву'); readln(s);
 While not EOF(f1) do
    begin
       readln(f1,st);
       delword(st,s);
       writeln(f2,st);
    end;
 Writeln('Текст, без слов с 1-й буквой"',s,'" или "',s1,'") занесен в (',f2name,')');
 close(f1);
 close(f2);
 Readln;
End.

Пример тхт:

Welcome to BPL70N15.ZIP, a collection of fast replacement libraries
for your Turbo Pascal 7.0 / Borland Pascal 7.0 compiler. There are
three libraries in this package, a real mode library (TURBO.TPL), a
DOS protected mode library (TPP.TPL), and a Windows library (TPW.TPL).
Every file is a complete, replacement for the original library bearing,
the same name that came with your Pascal compiler. Due to the many
optimizations in the replacement libraries, many programs compiled
with these libraries will run faster. For more detailed information
on possible performance improvements, see the file PERFORM.DOC. Only
performance information for real mode and DOS protected mode programs
can be provided at the moment!

[volvo]

    {$I-} reset(f1); {$I+}
    is_ok := (IoResult = 0);

Reset производился НЕПОСРЕДСТВЕННО перед превым обращением к IoResult, поэтому IoResult так работать будет, но если ты попытаешься:

    {$I-} reset(f1); {$I+}
    is_ok := (IoResult = 0);
    writeln(IoResult);

то это уже выдаст неверный результат (обращение к IoResult уже было, и он обнулился)...

А насчет этого:

ясно, но зачем ведь так сложно.... через записи , масивы....
Я, знаете ли, люблю велосипеды... но изобретать их видимо взялся зря. Но и писать такую процедуру, опятьтаки же огромную, по сравнению с самой прогой....

Ты меня извини, но ты забыл (если вообще когда-то знал) основную заповедь программиста: точнее их 2...
1) код, написанный один раз должен быть ReUsable, то есть ты его с легкостью должен преобразовывать для любых других похожих задач... Ты свой код преобразовать сможешь? Я, как видишь, то что приведено по ссылке уже как минимум в 20 местах использовал практически без изменений. А ты все гонишься за простотой программы, а получается - неспособность ее отлаживать и вносить минимальные изменения...
2)

Основной задачей программирования являтся создание правильных, а не эффективных программ.

Делай выводы.