Описание строки в Function, При создании модуля как описать string? Опции

[Shults99]

Уважаемые гуру!
Есть трабла - помогите разобраться!
При создании модуля (имя.tpu) используется блок, где есть string.

Код

function RightBlank(S1,L,i:integer):integer;
begin
Writeln('Vvedite stroku S1');
readln(S1);
Writeln('Vvedite dlinu stroki L ( chislo do 20)');
readln(L);

begin
       while i<L
       do for i:=1 to L
       do Write(S1[i]);

end;

     readln;

end;

При нажатии Make (F9) выдается сообщение:

- Error 121: Invalid qualifier. -

Как её объявить правильно в этой строке (или ещё где?):

Код

function RightBlank(S1,L,i:integer):integer;

Задача такого типа
С целью формирования модуля XXX составить следующие блоки-утилиты:
1)функцию aaa
2)функцию bbb
3)процедуру ссс
Испытайте эти блоки в составе модуля XXX, также сохраните эти блоки в одноименных файлах.

Щас создаю блок ааа.

[Дож]

- Error 121: Invalid qualifier. -

Неверный квалификатор

Возможные причины сообщения:

• вы пытаетесь индексировать переменную, которая не является массивом
  
  
  
• вы пытаетесь указать поля в переменной, которая не является записью
  
  
  
• вы используете в качестве указателя переменную, которая не является указателем.
  
  
  

Я могу предположить только одно- ты используешь запрещенные символы в назв переменной( [ ] ^ @ . )
А вообще скажи че-нить поконкретнее, а то приводишь рабочие коды и говоришь, что нечто измененное не работает...

Сообщение отредактировано: Дож - 19.09.2005 15:27