Створити файл цілих чисел. У новому файлі дві останні компоненти переставити на початок файлу.

[Liinad]

Не могу понять как правильно стать на позицию компоненты, кому не сложно исправьте. За ранее благодарен
Создать файл целых чисел. В новом файле две последние компоненты переставить на начало файла.

var
   F,P : file of integer;
   n,m,i,a,b : integer;
begin
     assign(F,'Dan.dat');
     rewrite(F);
     writeln('Ââåäèòå êîëè÷åñòâî êîìïîíåíòîâ ôàëà');
     readln(n);
     writeln('Ââåäèòå êîìïîíåíòû ôàéëà');
     For i:=1 to n do
        begin
             readln(m);
             write(F,m);
        end;
     writeln('Ïîëó÷åíûé ôàéë');
     reset(F);
     while not eof(F) do
          begin
               read(F,m);
               writeln(m:4);
          end;
     assign(P,'Dota.dat');
     rewrite(P);
     reset(F);
     seek(F,FilePos(F)-1);
     seek(F,a);
     write(P,a);
     seek(F,FilePos(F)-2);
     seek(F,b);
     write(P,b);
     For i:=1 to n-2 do
        begin
             readln(m);
             write(P,m);
        end;
     writeln('Ïîëó÷åíûé ôàéë');
     reset(P);
     while not eof(P) do
          begin
               read(P,m);
               writeln(m:4);
          end;
          close(F);
          close(P);
          writeln;
end.

[Liinad]

Люди подскажите, как правильно написать

[Базиля]

reset(F);
seek(F,FilePos(F)-1);

А с чего вы решили, что после выполнения процедуры reset, порядковый номер текущего компонента в файле будет последним ?
Рекомендовал бы все-таки, после выполнения ряда действий по записи в файл или чтению из сего, закрывать его.
И еще, не совсем понятно, что именно вы подразумевали под этими строчками:

  seek(F,a);
  seek(F,b);

У вас эти переменные не инициализированы - по умолчанию их значение равно нулю. Имейте это ввиду Т.е получается, вы в любом случае, перед записью в файл P оказываетесь на нулевой позиции файла F. И записываете вы в файл P (зачем-то) значения этих самых переменных a и b даже не обращавшись к компонентам файла F.

P.S. Оставляйте пожалуйста условие задания на русском языке, не все знакомы с украинским.

[Liinad]

Сообщение от Базиля

И еще, не совсем понятно, что именно вы подразумевали под этими строчками:

  seek(F,a);
  seek(F,b);

Я хотел в эти переменные записать последнюю и предпоследнюю компоненты файла, а потом их записать на начало файла P. Я прочитал пару статеек про перемещение компонент по файлу, но я так и не понял как именно обратиться к последней компоненте и предпоследней. А потом тем более записать их на начало другого файла

А с чего вы решили, что после выполнения процедуры reset, порядковый номер текущего компонента в файле будет последним ?

Тут я не прав, кстати, после оператора Reset, позиция будет в начале файла.

Базилия, можете подсказать, как через seek(), правильно обратиться к компоненте файла?

[Базиля]

Есть функция filesize которая возвращает количество компонент в файле.
Воспользуйтесь ею для обращения к последнему компоненту файла, ну и предпоследнему соответственно.
Вот пример обращения к последнему компоненту:

seek(F,Filesize(f)-1);  //не забываем что нумерация начинается с нуля

Ну а дальше уже считываем:

Read(f,a);

[Liinad]

Получается я перепутал операторы

 seek(F,Filesize(f)-1);

с

seek(F,FilePos(F)-1);

, спасибо, за помощь, сейчас буду разбираться дальше, по моему задание элементарное )

[Базиля]

Только не операторы, а функции

[Liinad]

Точно, спасибо за поправку

[Базиля]

На здоровье!

[Liinad]

Вчера пробовал изменить программу, почему-то не выводит, вот что получилось, подскажите что не правильно?

var
   F,P : file of integer;
   n,m,i,a,b : integer;
begin
     assign(F,'Dan.dat');
     rewrite(F);
     writeln('Ââåäèòå êîëè÷åñòâî êîìïîíåíòîâ ôàëà');
     readln(n);
     writeln('Ââåäèòå êîìïîíåíòû ôàéëà');
     For i:=1 to n do
        begin
             readln(m);
             write(F,m);
        end;
     writeln('Ïîëó÷åíûé ôàéë');
     reset(F);
     while not eof(F) do
          begin
               read(F,m);
               writeln(m:4);
          end;
          close(F);
     reset(F);
     assign(P,'Dota.dat');
     rewrite(P);
     seek(F,FileSize(F)-1);
     read(F,a);
     write(P,a);
     seek(F,FileSize(F)-2);
     read(F,b);
     write(P,b);
     For i:=1 to n-2 do
        begin
             readln(m);
             write(P,m);
        end;
     writeln('Ïîëó÷åíûé ôàéë');
     reset(P);
     while not eof(P) do
          begin
               read(P,m);
               writeln(m:4);
          end;
          close(F);
          close(P);
          writeln;
end.