Если S является допустимым именем файла, то создать пустой файл с именем и вывести True

uses crt;
var mn: set of char;
s,s1,s2,t:string;
n,m,i:integer;
f:text;
begin
mn := ['0'..'9','a'..'z','A'..'Z','$','&','#','`','~','(',')','-','%','!','_','^'];
t:='.';
read(s);
if pos('.',s)=0 then writeln('False');
if pos('.',s)=0 then exit;
i:=1;
while s[i]<>t do
begin
insert(s[i],s1,i);
i:=i+1;
end;
for i:=length(s1)+2 to length(s) do
begin
insert(s[i],s2,i);
end;
writeln(s);
writeln(s1);
writeln(s2);
for i:=1 to length(s1) do
if s1[i] in mn then else writeln('False');
for i:=1 to length(s1) do
if s1[i] in mn then else exit;
for i:=1 to length(s2) do
if s2[i] in mn then else writeln('False');
for i:=1 to length(s2) do
if s2[i] in mn then else exit;
n:=length(s1);
m:=length(s2);
if (n>=1) and (n<=8) and (m>=0) and (m<=3) then writeln('true') else writeln('false');
if (n<=1) and (n>=8) and (m<=0) and (m>=3) then exit;
 assign(F,s);
 rewrite(F);close(F)
end.

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.