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

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

[Shults99]

Ответы, кому интересно было

Код

program prog23;
uses utils;
var
S1,S2:string[20];
L,i,n,H,T:integer;
begin
Writeln('Vvedite deistviya, kotorye hotite vipolnit');
begin


Beep(H,T);
RightBlank(S1);

End;
End.

модуль

Код

unit utils;
interface
Uses Crt;

procedure Beep(H,T:integer);
function RightBlank(S1:string):integer;

Implementation

procedure Beep;

Begin

Sound(H);        { Zvuk c visotoi H Hz }
Delay(T);        { Na T millisekund }
NoSound;           { Viklucheniye dynamika }

End;

function RightBlank(S1:string):integer;
var
{S1:string[20];}
i,L: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;

End.