Вывести название файла из указанной дирректории с использованием функции string - Pascal

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

Подскажите написанием программы... Введите полное имя файла: Диск: \ Путь \ Файл.расширение, например: C: \ Program files \ Borland \ Delphi \ tak \ polucitj \ znacenie \ cisla.tem (имя диска, каталог (путь, директория, имя и расширение) . 1.Вывести файл 2.Вывести имя файла без расширения 3.Вывести диск, путь, имя файла, расширение (в колонку) Буду очень благодарна за помощь

Решение задачи: «Вывести название файла из указанной дирректории с использованием функции string»

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

                            uses crt;
var s,d,p,f,n,r:string;
    i,k:byte;
begin
clrscr;
s:='C:\Program files\Borland\Delphi\tak\znachenie\cisla.tem';
writeln(s);
writeln;
d:=copy(s,1,pos('\',s)-1);{disk}
delete(s,1,pos('\',s));
k:=0;
for i:=length(s) downto 1 do
if s[i]='\' then
 begin
  k:=i;{poslednij slash}
  break;
 end;
p:=copy(s,1,k);{path}
n:=copy(s,k+1,pos('.',s)-1-k);{imya}
r:='';
for i:=pos('.',s)+1 to length(s) do
r:=r+s[i];{rashirenie}
f:=n+'.'+r;
write('Fail:  ');writeln(f);
write('Imya:  ');writeln(n);
writeln;
write('Disk:  ');writeln(d);
write('Path:  ');writeln(p);
write('Imya:  ');writeln(n);
write('Rasshirenie: ');write(r);
readln
end.
                        