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

[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]

Appendix D

D.3 Delphi mode
...
5. The Objpas unit is loaded right after the system unit. One of the consequences of this is that
the type Integer is redefined as Longint.
...

D.5 ObjFPC mode
...
5. The Objpas unit is loaded right after the system unit. One of the consequences of this is that the type Integer is redefined as Longint.
...

Во всех остальных случаях размеры Integer и LongInt НЕ совпадают...

[compiler]

размер Pointer, как я теперь понял 4 поэтому буду использовать LongInt...