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

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

[hiv]

А я понял, что так нужно:

function RightBlank(var S:string):integer;
var
S1 :string[20];
i :integer;
begin
  Writeln('Vvedite stroku S1'); readln(S1);
  Writeln('Vvedite dlinu stroki L ( chislo do 20)'); readln(L);

  if length(S1)>=L then S:=copy(S1,1,L)
  else
    begin
      S:=S1;
      for i:=1 to L-length(S1) do S:=S+' ';
    end;

  RightBlank:=L;
end;

Т.е. если обрезка большая, то мы добавляем пробелы к S1 справа, чтоб все строки были под одну гребенку (одной длины)