Описание строки в 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, также сохраните эти блоки в одноименных файлах.

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

[GoodWind]

Чет не нашел в Паскале trim..

это не Паскалевая функция... даже не помню в каких языках она есть... кажется в FoxPro
trim это обрезка ведущих пробелов. бывают TrimRight, TrimLeft, TrimAll