Erst einmal herzlich Willkommen in der
DP 
!
Außerdem muss ich dich noch auf einen Fehler in der Dimensionierung hinweisen: Das zweite Array ist doppelt so groß wie das erste.
VirtuelleSpeicherSeite1_S : Array[0..15] of Array[0..7] of Word;
Code:
Sizeof(Array1) = 16 * 16 * 1 Byte = 256 Byte
Sizeof(Array2) = 16 * 8 * 2 Byte = 256 Byte
Delphi-Quellcode:
type
TVirtualDingens1 = Array[0..15] of Array[0..15] of Byte;
TVirtualDingens2 = Array[0..15] of Array[0..7] of Word;
var
mem1 : TVirtualDingens1;
mem2 : TVirtualDingens2 absolute mem1;
begin
mem2[0, 0] := $FFFF;
Writeln(mem1[0, 0]);
Writeln(mem1[0, 1]);
Readln;
end.