Задачи с файлами

[.poison]

Ребят, помогите пожалуйста с задачами..(( на Паскале нужно написать..


Використайте будь-який файл даних. Перепишіть дані в інший файл, тобто зробіть копію файлу.
Используйте любой файл данных. Перепишите данные в другой файл, то есть, сделайте копию файла.


Створіть новий файл, вилучивши з попереднього запис з деяким номером n.
Создайте новый файл, изъявши из предыдущего запись с некоторым номером n.

Буду очень благодарен... Заранее спасибо, программисты))

[whatever]

Заранее спасибо, программисты

То то и оно, что програмисты, а не лингвисты. Сайт то в домене .ru находится. Какбы намекаю.
Update: Прошу прощения, нижние строчки не прочитал. Раз уж косячнул, сейчас решу что-нибудь.

Update2:
первая задача:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  T,S:textfile;
  path:string;
begin
  write('Enter path to txt file: ');
  readln(path);
  if fileexists(path) then
    begin
      assignfile(T,path);
      reset(T);
      while path[length(path)]<>'.' do
        delete(path,length(path),1);
      delete(path,length(path),1);
      path:=path+'_copy.txt';
      assignfile(S,path);
      rewrite(S);
      while not EOF(T) do
        begin
          readln(T,path);
          writeln(S,path);
        end;
      close(t);
      close(S);
    end
  else
    begin
      writeln('file not found');
      readln;
    end;
end.