Код
Const vasya='vasya1010_5654';
Var a: string;
Fil: text;
Begin
a:=vasya+'.html';
writeln(a);
assign(Fil, a);
Rewrite(Fil);
WriteLn(Fil, 'URA!!!');
Flush(Fil);
Close(Fil);
End.
Пробовал разные разрешения, в итоге остановился на ХТМЛ.
По идее должен создаваться файл vasya1010_5654.html, но создается vasya101.html
