Помогите с курсовиком, И снова ООП Опции

[SunDevil]

Помогите, плиз, разобраться с такой проблемой: в прикрепленном файле наполовину сделанный мой курсовик. Все ООП содержтся в файле Main.PAS В этом файле нормально работает только массив (с матрицей и списком я еще не разобрался). Когда запустите прогу, то увидете меню. Мне надо, чтобы на данный момент ВЫ помогли бы мне реализовать первый пункт меню (РАБОТА С МАССИВОМ). Надо, чтобы когда я зашел в этот пункт меню и выбрал любой другой пункт (Ввод массива, ввод диапазона от А до В, вывод измененного массива), то соотвественно это все работало. Моя проблема заключается в том, что я не знаю как вызывать файл Main.PAS и чтобы там все прекрасно работало :o
ПОМОГИТЕ, плиз :p2:

[volvo]

Объясни мне, непонятливому, ПОЧЕМУ ты массив хочешь наследовать от матрицы??? Смысл в этом какой? Искусственно создать себе же проблемы и искусственно их потом решать? Ну не для этого ввели OOP !!! Если уж тебе нужно наследование и виртуальные функции, то я бы сделал так:

Исходный код

Type
pMassiv: ^massiv;
massiv: Array[1 .. 1] Of Real;

pMatrix = ^matrix;
matrix = Array[1 .. 1] Of pMassiv;

TAbst = Object { Абстрактный класс }
Size, ArrCount: Integer;
x: pMassiv; { это все равно везде присутствует }

Constructor Init;
{
Write('Размерность: '); ReadLn(Size);
GetMem(X, Size*SizeOf(Real));
}
Destructor Done; Virtual;
{
FreeMem(X, Size*SizeOf(Real));
}

Procedure InData; Virtual;
Procedure OutData; Virtual;
Procedure Form; Virtual;
Procedure OutRes; Virtual;
End;

TMass = Object(TAbst)
Y: pMassiv;

Constructor Init;
{
Inherited Init; { Вызываем конструктор предка }
GetMem(Y, Size*SizeOf(Real));
}
Destructor Done; Virtual;
{
FreeMem(Y, Size*SizeOf(Real));
Inherited Done;
}

Procedure InData; Virtual;
Procedure OutData; Virtual;
Procedure Form; Virtual;
Procedure OutRes; Virtual;
End;

TMatr = Object(TAbst)
Y: pMatrix;

Constructor Init;
{
Inherited Init;
GetMem(Y, Size*SizeOf(pMassiv));
For i := 1 To Size Do
GetMem(Y[i], Size*SizeOf(Real));
}
Destructor Done; Virtual;
{
For i := 1 To Size Do
FreeMem(Y[i], Size*SizeOf(Real));
FreeMem(Y, Size*SizeOf(pMassiv));
Inherited Done;
}

Procedure InData; Virtual;
Procedure OutData; Virtual;
Procedure Form; Virtual;
Procedure OutRes; Virtual;
End;

Я уж не знаю, что ты хочешь делать со списком, но при желании его тоже можно наследовать от TAbst (правда, непонятно зачем ему нужен размер ) ...