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

[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]

Значит, так: все прекрасно работает... Просто для того, чтобы это откомпилировалось, надо добавить самой первой строкой программы:

{$V-}

, иначе Паскаль не позволяет передавать тип String[20] в параметр, имеющий просто тип String (т.е. длина строк должна совпадать идеально... {$V-} снимает это ограничение)...

А вот насчет процедуры NewStr - ты неправильно заполняешь строку...

 FillChar(S6, L, 'C'); { Здесь все в порядке }
 S5[0]:=#80;  { Во-первых, почему S5 а не S6 ??? }

ну, и потом, я так понял, что это - пример из Борландовского файла помощи для Турбо-Паскаля? Но ведь там описана строка длиной в 80 символов, а ты откуда взял это самое число 80?
Вот правильный вариант для твоего случая:

FillChar(S6, L, 'C');
S6[0] := Chr(L); { <--- устанавливаешь длину строки !!! }
WriteLn(S6); { <--- именно так !!! }

Если ты не печатаешь строку через WriteLn, а печатаешь посимвольно, то смысла в использовании FillChar просто нет, т.к. тут самое главное - правильно установить длину строки, и сделать это так, чтобы WriteLn отобразил строку корректно !!! Символ за символом-то ясно, что оно будет в любом случае выдавать правильный результат... Вот и у тебя строка заполнена неверно, а результат будет выдаваться похожий на правду...