Generuojam varda

function Vardas : string;
const chars = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
var Vardas : string;
    TempInt : integer;
begin

// sugeneruojam atsitiktiny varda
 Vardas := '';
 Randomize;
  for TempInt := 1 to 10 do Vardas := Vardas + chars[Random(60)+1]; // jai nebus "+1" tai kartais i gala prides #0, todel gausi failas be galunes

result := Vardas;

end;