FreePascal.ru

Возможно, кривой конфиг fpc.
Вроде, эти коды соответствуют ошибочным директивам в fpc.cfg
Например, в пакете fpc, который я слил вообще не было fpc.cfg. Создал, его, запустив samplecfg
А что бы окно не закрывалось можно также воспользоваться стандартной функцией readkey, модуля crt, т.е ...

Всё, всем спасибо за помощь, а отдельный респект mr.denton . Он-то и подсказал, то что было нужно: явное преобразование типа указателя.
Итого, после преобразования функции addrm таким образом:

type preal=^real;
function addrm (const array_point: parray; const i,j:word) : preal;
begin
addrm ...

Я тоже думал, но выходит, что они несовместимы, ибо если изменить в процедуре вычисления указателся на i,j элемент массива тип значения, возвращаемой функцией указателся на pointer, т.е.

function addrm (i,j:word) : pointer;
begin
addrm:=ptr(seg(a[i]^),ofs(a[i]^)+(j-i)*sizeof(real));
end ...

С помощью addrm:=ptr(seg(a[i]^),ofs(a[i]^)+(j-i)*sizeof(real)); я хотел вычислить указатель на i,j элемент массива.
Насчёт нетипизированных указателей. Я пытался прямо указать ^real, вместо farpointer, но это тоже не увенчалось успехом (снова ошибка несовместимости типов farpointer и preal (preal ...

Доброго времени суток.
Для создания двумерного динамического массива стал воять простенькую прогу:

Program dyn_mas;
Uses crt;
const
m=7;
n=7;
type
real_pointer = farpointer;
Var
i,j: word;
a: array [1..20] of pointer;
function addrm (i,j:word) : real_pointer;
begin
addrm:=ptr(seg(a[i]^),ofs(a[i ...