[ViNT]

Как это, нет массива записей?

type
 rec=record
    x,y:integer;
end;
    
var
 a:array[1..100,1..100]of rec;
 
begin
    a[1,1].x:=0;
end. 


Все без проблем компилится и работает, главное, чтобы массив квадратный был (если двумерный).