Подскажите что обозначают команды

[Luska]

length, vuvod, yesno:boolean, yesno:=true ?????

[pu4koff]

Сообщение от Luska

length, vuvod, yesno:boolean, yesno:=true ?????

мне вот интересно: все остальное в проге ясно, а вот эта строчка только непонятна?

length, vuvod, yesno:boolean - судя по всему описание переменных типа boolean
yesno:=true - присваивание переменной значения

[Luska]

нее, вы не поняли меня... Пот собственно прога:

procedure TForm1.BitBtn1Click(Sender: TObject);
var str:string;
    s1:string[20];
    n1,n2,i,j,l:integer;
begin
  i:=1;
  str:=edit1.text;
  s1:='';
  while i<=length(str) do
    begin
    j:=i;
    while j<=length(str) do
      begin
        if j=length(str) then begin
                                s1:=s1+str[j];
                                vuvod(s1);
                                end; 
          if (str[j]=' ')  then begin
                                vuvod(s1);
                                s1:='';
                                end
                            else s1:=s1+str[j] ;
          j:=j+1;
      end;
    i:=j+1;
     end;
end;
procedure vuvod(s1:string);
var yesno:boolean ;i,j:integer;
begin
    yesno:=true ;
    for i:=1 to length(s1) do
    begin
      for j:=1 to length(s1) do
      begin
        if (s1[i]=s1[j]) and (i<>j)
        then yesno:=false;
      end;
    end;
    if yesno=true then form1.Edit2.Text:=form1.edit2.Text+' '+s1;
end ;
 

end.

Ну так вот, мне необходимо понять её, но я не понимаю, что обозначают вот эти команды, что написаны в первом посте!

[pu4koff]

и неудивительно, что не понял... мысли читать пока не научился
length(str) - длина строки str
vuvod(s1) - в Edit2 дописывает строку s1, если в той нет повторяющихся букаф (если я прально понил)
ЗЫ. реализация - ка$%$%$

[Luska]

Пасябки