Перемещение массива в файле, Перемещение массива в файле Опции

[Gift]

Как переместить четные числа в начало, а нечетные в конец не изменяя порядка
следования чисел с одинаковой четностью.
есть
12 7 9 6 -5 -6
4 6 -7 23 -24 9

надо
12 6 -6 7 9 -5
4 6 -24 -7 23 9

Код

uses crt;
const n=9;
type mas=array[1..6] of integer;
var
f:file of mas;
i,x,min,max,num_of_max:integer;
a:mas;
begin
clrscr;
randomize;
assign(f,'000.000');
rewrite(f);
for i:=1 to n do
begin
for x:=1 to n do
begin
 a[x]:=random(99);
 write(a[x]:3);
end;
writeln;
write(f,a);
writeln;
end;
close(f);

Код - в теги !!!

[volvo]

Ну и что этот код делает?
Кстати, двумя темами ниже есть очень похожее задание, только там нужно переместить нулевые элементы в конец файла.
Вот тут...

[Guest]

Ну и что этот код делает?
Кстати, двумя темами ниже есть очень похожее задание, только там нужно переместить нулевые элементы в конец файла.
Вот тут...

Показывает введеные данные.
А как сделать с помощью filesise, filepos, seek?
меня такой метод больше интересует.

[volvo]

А как сделать с помощью filesise, filepos, seek?
меня такой метод больше интересует.

А вот сходи по ссылке, которую я дал в предыдущем посте, и вместо закомментированных строк поставь то, что нужно ... Конечно, нужно будет пользоваться filesize, filepos и seek...