Указатели паскаль

[bubliks]

помогите пожалйуста разобраться в задаче!!!
По известным трем вершинам прямоугольника (x1, y1), (x2, y2), (x3, y3) найти координаты четвертой вершины. я сделала сначала через массив,но прподаватель сказ что через него не нужно, вот набрасала но что то тут не то пожалуйста посмотрите!!!!!!в проге должны быть использ только динамические переменные,в прогр я новичок так что строго не судите)))
unit Unit1;

interface
type ref=^integer;

function p(var a:ref; x1,y1,x2,y2,x3,y3:ref):integer;

implementation

function p(var a:ref; x1,y1,x2,y2,x3,y3:ref):integer;
begin
if (a^=x2^) then begin result:=x3;
if (a^ <> y3^) then result := y1^
else result := y2^;
end else if (a^ = x3^) then begin
result:= x1^;
if (a^ <> y1^) then result := y2^
else result := y3^;
end else begin
result:= x2^;
if (a^ <> y2^) then result:= y3^
else result := y1^;
end;

end;


end.

[mMAg]

Если честно, то совершенно непонятно, что ты сделала.
Во-первых, var тут не обязателен поскольку у тебя в функцию передаётся указатель на integer, а не integer. А указатель изменяться уж точно не должен, изменяться будет только значение переменной, на которое он указывает.
Во-вторых, коли уж тебе нужно найти четвёртую вершину прямоугольника, то нужно передать в функцию 2 переменные типа ref. Или это у тебя координата по X должна туда записываться, а координата по Y возвращаться функцией?