Решение задачи File 4

from os import listdir
from os.path import isfile, join

my_files = ['file01.py', 'file02.py', 'file022.txt', 'file03.py', 'file03.txt', 'file44.py']
print("Искомые файлы:")
print(my_files)

mypath = "."
onlyfiles = [f for f in listdir(mypath) if isfile(join(mypath, f))]
print("Имеющиеся файлы:")
print(onlyfiles)

set1 = set(my_files).intersection(onlyfiles)
print("Найденные файлы:")
print(set1)
print("Количество найденных файлов:", len(set1))
									

program File4;
var
 S:String;
 F:File;
 i,Num:integer;
begin
  Num:=0;
  for i:=1 to 3 do
   begin
    Write('S: ');
    Readln(S);
    Assign(F,S);
    {$I-}
     Reset(F);
    {$I+}
    if IOResult=0 then
     begin
      inc(Num);
      Close(F);
     end;
  end;
  Writeln(Num);
end.