Создать класс, для реализации матрицы

program VECTOR;
{$APPTYPE CONSOLE}
uses SysUtils, Classes;
const cmdExitProgram=0; //выход из программы
cmdSum=1; //сложение векторов
cmdScal=2; //скалярное произведение
cmdVect=3; //векторное произведение
cmdMult=4; //умножение на число
cmdLength=5; //длина вектора
cmdShowAll=6; //показать векторы
type TVector=class(TPersistent)
private
FName:char;
FX,FY,FZ: Integer;
procedure SetName(const Value: Char);
procedure SetX(const Value: Integer);
procedure SetY(const Value: Integer);
procedure SetZ(const Value: Integer);
protected
{унаследован от TPersistent копирует содержимое объекта в объект Dest}
public
procedure ShowInfo; virtual; //показывает информацию
procedure Input; virtual; //ввод данных
//фамилия
property Name:char read FName write SetName;
property X:Integer read FX write SetX;
property Y:Integer read FY write SetY;
property Z:Integer read FZ write SetZ;
end;
{ TVector }
procedure TVector.SetName(const Value: Char);
begin
FName := Value;
end;
procedure TVector.SetX(const Value: Integer);
begin
FX := Value;
end;
procedure TVector.SetY(const Value: Integer);
begin
FY := Value;
end;
procedure TVector.SetZ(const Value: Integer);
begin
FZ := Value;
end;
procedure TVector.ShowInfo;
begin
writeln(Name,'( ', X, ' ; ', Y, ' ; ', Z, ' )');
end;
procedure TVector.Input;
begin
write('Name > ');
readln(FName);
write('X > ');
readln(FX);
write('Y > ');
readln(FY);
write('Z > ');
readln(FZ);
end;
 
var A,B:TVector;
k:integer; //число строк в таблице
MenuState:byte;//код выбранного действия
begin
A:=TVector.Create;
A.Input;
A.ShowInfo;
B:=TVector.Create;
B.Input;
B.ShowInfo;
repeat
//выводим меню
writeln;
writeln('Choose the action');
writeln(cmdSum, ' - Sum of vectors ');
writeln(cmdScal, ' - Scalar product');
writeln(cmdVect, ' - Vector product');
writeln(cmdMult, ' - Multiplicate on a number ');
writeln(cmdLength, ' - Length of vectors');
writeln(cmdShowall, ' - Show vectors');
writeln(cmdExitProgram, ' - Exit Program');
write('»'); readln(MenuState);
//выбираем действие
case MenuState of
cmdSum:begin
writeln('Vector of sum is ( ', A.X+B.X, ' ; ', A.Y+B.Y, ' ; ', A.Z+B.Z, ' )');
end;
cmdShowAll: begin
writeln('=============');
A.ShowInfo;
B.ShowInfo;
writeln('=============');
end;
cmdScal:begin
writeln('Scalar product is ', A.X*B.X+A.Y*B.Y+A.Z*B.Z);
end;
cmdVect: begin
writeln('Vector product is m=(', A.Y*B.Z-A.Z*B.Y,')i+(',A.X*B.Z-A.Z*B.X,'}j+(',A.X*B.Y-A.Y*B.X,')k');
end;
cmdMult:begin
writeln('Enter K');
readln(k);
writeln('First*k is (', A.X*k,' ',A.Y*k,' ',A.Z*k,')');
writeln('Second*k is (', k*B.X,' ',k*B.Y,' ',k*B.Z,')');
end;
cmdLength: begin
writeln('Module 1st is (', sqrt(sqr(A.X)+sqr(A.Y)+sqr(A.Z)),')');
writeln('Module 2nd is (', sqrt(sqr(B.X)+sqr(B.Y)+sqr(B.Z)),')');
end;
cmdExitProgram: begin
writeln('Press Enter to exit');
readln;
end;{cmdExitProgram}
else writeln('Unknown command');
end;
until MenuState=cmdExitProgram;
end.