Если S является допустимым именем файла, то создать пустой файл с именем и вывести True - Pascal ABC (14643)

Формулировка задачи:

помогите решить. срочно надо сегодня сдавать. Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False.

Решение задачи: «Если S является допустимым именем файла, то создать пустой файл с именем и вывести True»

Листинг программы

var
  s:string;
  i,k:integer;
  f:file;
 begin
 readln(s);
 k:=0;
  for i:=1 to length(s) do
    case ord(s[i]) of
     46:inc(k);
     48..57:inc(k);
     65..90:inc(k);
     97..122:inc(k);
    end;
 if k=length(s) then 
  begin
   assign(f,s);
   rewrite(f);
   close(f);
   writeln(true);
  end
  else writeln(false);
  end.

Объяснение кода листинга программы

В данном коде происходит чтение строки от пользователя, затем происходит проверка каждого символа введенной строки. Если символ является цифрой, то переменная k увеличивается на единицу. Если k равно длине строки, то создается новый файл с именем, прочитанным из строки, и записывается в него пустая строка. Затем файл закрывается и выводится значение True. Если в процессе проверки символов не было найдено допустимого имени файла, то выводится значение False.