Как пользоваться функциями работы с файлами такими как fileExists CanCreatefile

var f:text;
    s:string;
    a:integer;
begin
writeln('Введите полный путь к файлу или его имя, если он в текущем каталоге');
read(s);
assign(f,s);
if not fileexists(s) then
 begin
  write('Файл не найден');
  exit;
 end;
reset(f);
writeln('Числа первой строки файла:');
while not seekeoln(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
readln(f,s);//пропустим эту строку
writeln('Остальные числа:');
while not seekEof(f)do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
end.

var s:string;
begin
writeln('Введите полный путь к файлу или его имя, если он в текущем каталоге');
read(s);
if CanCreatefile(s) then write('Файл создать можно')
else write('Файл создать нельзя, недопустимый путь или имя');
 
end.

uses crt;
var f:file of integer;
    i,a:integer;
begin
randomize;
assign(f,'123');
rewrite(f);
for i:=1 to 10 do
write(f,i);
reset(f);
writeln('Содержание исходного файла');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
seek(f,0);//возвращаемся в начало файла
read(f,a);
writeln('Первое число=',a);
seek(f,5);
read(f,a);
writeln('6-е число=',a);
seek(f,filesize(f)-1);
read(f,a);
writeln('Последнее число=',a);
close(f)
end.

seek(f,6);
truncate(f);
writeln('Оставшиеся числа в файле');
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  write(a,' ');
 end;
close(f)

writeln;
write('Позиция указателя=',FilePos(f));

rename(f,'888'); //изменится имя файла

erase(f);