адрес указателя, вызвать ошибку.. Опции

[compiler]

Хотелось бы написать программку которая вызывала ошибку в распределении памяти...
для этого я хочу написать 3 проги . первая - читает число(в указатель), адрес указателя пишет в файл, ждет действия второй програмки(которая будет пытаться прочитать/изменить значения указателя) и печатает это же число.
первую програмку я то написал но с ошибками

var
	p  : ^integer;
	ad: integer;
	f  :file of integer;
begin
	Assign(f,'file.txt');
	Rewrite(f);
	
	New(p);
	readln(p^);
	
	ad:=Addr(p);  //ошибка, можна конечно прать отдельно сигмент и сдвиг но это не то...
	write(f, ad);
	
	Close(f);
	
	(*readln; read;*)
        while IOResult = 0                    //замена, пока файл не удален другой программой, 
		do {$I-} Reset(f); {$I+}   //будем надеятся у нее это получится

	
writeln(p^);
	
	readln;
	read;
end.
 

заранее благодарен.

добавлено (вторая программа+в первой уничтожена одна переменная)

var
	p  : ^integer;
	f  :file of integer;
begin
	Assign(f,'file.txt');
	Reset(f);
	
	New(p);
	read(f, p); 
	
	Erase(f);
end.

Сообщение отредактировано: compiler - 27.05.2007 15:12

[volvo]

ad:=Integer(Addr(p));

(только если ты уверен, что SizeOf(Pointer) = SizeOf(Integer) на твоем компиляторе)

Добавлено через 1 мин.
Только вот сдается мне, что ты получишь Access Violation