Подкорректируйте функцию, она работает, но что-то в ней не то

[mobilitialex]

Подкорректируйте функцию, она работает, но что-то в ней не то

function pass():string;
Var
  Pass: String;
  PassLen,i: Integer;
begin
 Pass := ''; PassLen := 10;
 for i := 1 to PassLen
 do case Random(3)
    of 0: Pass := Pass + Chr(65+Random(26)); //Верхний регистр
       1: Pass := Pass + Chr(97+Random(26)); //Нижний регистр
       2: Pass := Pass + Chr(48+Random(10)); //Цифры
    end;
    Result :=pass;
    end;

[tsar_]

А в чем это выражается??

[Alex2391]

В конце тела функции должно быть: имя функции := что-то, в данном случае

pass:=Result;

А почему переменная Result нигде не объявлена?

[asmodey1]

А потому что ее не надо объявлять

[phomm]

нормальная функция , погонял в уме, разъясните, в чём у вас проблема ?

может как раз косяк в том, что у вас сама функа с именем pass и внутренняя переменная тоже pass и она порой пытается вместо присвоения сделать вызов самой себя ?