Генерация имени записываемого файла. Паскаль

[NikLik]

Вот кусок кода

var x:text;
FileName:string;
begin
...
while(true)
...
randomize;
FileName:=chr(random(100)+100)+chr(random(100)+100)+chr(random(100)+100);
assign(x,FileName);
rewrite(x);
...
end;
...

На строке rewrite(x) (если делать пошагово) пишет ошибку-- "File not found"
С чем это связано и как с этим бороться?

[_Dmitry]

Паскаль написан для DOS, поэтому в имени файла может быть только латынь и цифры. Коды цифр [48..57], коды заглавных латинских букв [65..90], коды строчных латинских букв [97..122]. Вы же используете диапазон [100..199] - эти символы в имени файла не допустимы.

[NikLik]

Строка будет выглядеть следующим образом:

FileName:=chr(random(48)+9)+chr(random(65)+25)+chr(random(97)+25);

?

[_Dmitry]

Попробуй так:

FileName:=chr(random(10)+48)+chr(random(26)+65)+chr(random(26)+97);

[NikLik]

Большое спасибо