Организовать ручной ввод двумерного массива. И вовод для его контроля. Delphi7

type
TArrayType=integer;

TArrayLine=array of TArrayType;

T2DArray=array of TArrayLine;

TTwoDimensionalArray=class

private

Array:T2DArray;

function fGetHeight:integer;

function fGetWidth:integer;

function fGetItem(x,y:integer):TArrayType;

procedure fSetItem(x,y:integer; Value:TArrayType);

public

constructor Create(Width, Height:integer);

destructor Destroy; override;

procedure ReadFromKeyboard;

procedure WriteToConsole;

property Height:integer read fGetHeight;

property Width:integer read fGetWidth;

property Item[x,y:integer]:TArrayType read fGetItem write fSetItem; default;

end;

_

Осталось написать реализацию данного класса и все. Дерзай.