Алгоритм записи чтения нетипизированого файла

[sysop999]

Добрый вечер =), очень прошу, посмотрите, что не правильно
суть в чем, создаю масивы указателей, выделяю 40кб, нужно записать в нетипизированый файл, и считать с нетипизированого файла, компилятор материться

program reader;
var
   a:array [1..2] of pointer;
   f:file;
   pr:^byte;
begin
getmem(a[1],40000);
getmem(a[1],40000);
pr:=ptr(seg(a[1]^),ofs(a[1]^));
pr^:=100;
pr:=ptr(seg(a[2]^),ofs(a[2]^));
pr^:=200;
 
assign (f,'1.dat');
rewrite (f,1);
blockwrite (f,a[1],40000);
blockwrite (f,a[2],40000);
close(f);
reset (f,1);
blockread (f,a[1],40000);{---------------как здесь делать?-------}
blockread (f,a[2],40000);
close(f);
pr:=ptr(seg(a[1]^),ofs(a[1]^));
writeln(pr^);
pr:=ptr(seg(a[2]^),ofs(a[2]^));
writeln(pr^);
readln;
end.

[Stilet]

как здесь делать?

По-моему тут разименовывать нужно: blockread (f,a[1]^,40000);

getmem(a[1],40000);
getmem(a[1],40000);

Шутка? Если нет то учти - ты захламляешь память, и не выделяешь ничего для a[2]

pr:=ptr(seg(a[1]^),ofs(a[1]^));
pr^:=100;
pr:=ptr(seg(a[2]^),ofs(a[2]^));
pr^:=200;

Разве нельзя проще?:

a[1]^:=100;
a[2]^:=200;

[sysop999]

Сейчас объясню, да правильно невнимательно набрал
getmem(a[2],40000);
Я не засоряю память, я делаю прогу сортировки масивов, больше чем 64 кб, для этого мне нужно использовать динамическую память, я создаю массиву указателей и со смещением присваиваю в ячейку памяти число
например
pr:=ptr(seg(a[1]^),ofs(a[1]^));
pr^:=100;
и так дальше
pr:=ptr(seg(a[1]^),ofs(a[1]^)+1);
pr^:=100;

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

[QUOTE=Stilet;1022206]По-моему тут разименовывать нужно: blockread (f,a[1]^,40000);
Аааа не хочет, мне надо считать именно указатель с данными

[s-andriano]

Указатель записывать в файл и считывать из файла абсолютно бесмысленно, т.к. он имеет смысл только в период работы программы. Даже при следующем запуске указатели могут указывать на другие адреса памяти.
Поэтому советую прислушаться к словам Stilet.

Кстати, длина указателя всего 4 байта. Считывать или записывать что-то за его пределами (остальные 39996 байт) бесмысленно, т.к. там содержится мусор (при записи). А при чтении есть вероятность попрортить что-то в оперативной памяти.