Хочу дополнить данный код этим условием но не знаю как, вот такая проблемка.
То есть смысл такой : если файл с таким именем уже есть то мы просто делаем reset(MYFILE), если нету, то rewrite(MYFILE); вот куда я хочу внедрить это условие:
{$I-}
assign(MyFile, filename);
reset (MyFile);
{$I+}
for i:=1 to Length(filename) do
begin
if (ord(filename[i]) < 48 ) or ((ord (filename[i])) > 57) and ((ord (filename[i]) < 65))
or (((ord (filename[i])) > 91) and ((ord(filename[i]) < 96))) then RC:=-1 else RC:=0;
end;
if RC <> 0 then begin writeln ('Файл не создан, ошибка в названии'); exit; end
else rewrite (MyFile);