Обнуление строк при использовании файлов с кодом Опции

[Shults99]

После использования файлом блоков-функций из других 5-ти файлов
строки не обнуляются несмотря на то, что в каждом блоке-функции стоит
Delete(строка,1,20);. Т.е. тогда, когда используется следующая блок-
функция выводит результат с остатками строки предыдущего файла,
содержащего функцию со строкой.
В чем дело? Должны быть ответы и без хлама всякого, который выводится
из предыдущей блок-функции.
Вот пример файла программы

program prog24;
uses crt;
var
S1,S2,S3,S4,S5,S6:string;
i,L:integer;
{$I c:\prog23a}
{$I c:\prog23b}
{$I c:\prog23v}
{$I c:\prog23g}
{$I c:\prog23d}

begin

        RightBlank(S1);
        BlankDel(S2,S3);
        Upper(S4,S5);
        Newstr(S6,L);
        Beep;

end.

и пример одного из 5 файлов, содержащих функции
(остальные подобны вплане того, что самостоятельно,
когда их переделываешь в программу они работают)

function Newstr(S6:string; L:integer):integer;
Var
i : integer;
Begin
 WriteLn('Zapolnyaem stroku simvolami C. Zadaniye 23 b');
 WriteLn('Vvedite kolichestvo simvolov L');
 ReadLn(L);
 FillChar(S6[i], L, 'C');
 S5[0]:=#80;  { Устанавливаем байт длины }
              for i:=1 to 20 do
        begin
             Write(S6[i]);
        end;
  Writeln(' ');
  Write('Nagmite Enter');
Delete(S6,1,20);
  readln;
End;

[volvo]

Так, заканчиваем сеанс гадания. Заархивируй все файлы и присоедини архив к сообщению (вместе с ПОЛНЫМ заданием, что именно ты хочешь, чтобы программа делала), тогда может быть ошибка и будет найдена. Иначе (по кускам программы) этого сделать невозможно...

Пробелы удаляются и ладно.

Ну-ну... Вот они у тебя и удаляются, что ты ошибку найти не можешь...