ООП. Создание объекта

[Lisёноk]

Добрый день! Мне необходима ваша помощь.
Имеется следующее задание:

В резцедержателе токарного станка могут устанавливаться резцы со следующими размерами державки
ВхН, мм: 10х16, 12х16, 12х20, 16х20, 16х25, 20x25, 20х32, 25х32, 25x40 (В - ширина державки, H -
высота державки). Минимальный размер сечения державки из условия ее прочности определяется по
неравенству:
//неравенство//,
где Pz - тангенциальная составляющая силы резания, кгс;
l - вылет резца, мм; [σu] - допускаемое напряжение на изгиб материала державки, кгс/мм2.
Сила Рz рассчитывается по следующим степенным зависимостям:
//формулы для вычисления силы//,
где Cp, Cv - константы;
t - глубина резания; S - подача инструмента, мм/об;
v - скорость резания, м/мин; T - стойкость резца;
x1, x2, y1, y2, n, m - показатели степени.
//здесь вставлена таблица с проверяемыми значениями//
Составить программу расчета минимально возможного сечения державки резца по условию прочности
для заданных режимов резания. Программа должна вывести:
- исходные данные t, S, l;
- значение силы Рz;
- размер сечения державки резца ВхН.
Если же сила Рz настолько велика, что требуемое сечение державки подобрать невозможно, то программа
должна вывести соответствующее информационное сообщение, величину силы Рz и закончить свою
работу.
Построить поперечное сечение державки.

Преподаватель сказал сделать программу на основе объектно-ориентированного программирования.
Я создала объект:

unit cutter;

interface

TP=procedure of object;
Tcutter=CLASS

private

fPower:real; //сила
RPM:WORD; // подача инструмента
Fsection: unteger; //размер сечения
p:TP;
fgab:integer; //вылет резца
fdeep: real; // глубина резания

FUNCTION GetPower:REAL;
PROCEDURE PW(newPOWER:integer); //смена силы

FUNCTION GetRPM:word;

PROCEDURE SC(newSC:integer); //смена размера сечения
FUNCTION GetSection:integer;

FUNCTION GetGab: integer;

FUNCTION GetDeep: real;

public

property Power:real read GetPower;
property Section:integer read GetSC;
property Gab read GetGab;
property RPM:WORD read GetRPM;
property Deep: real read GetDeep;
CONSTRUCTOR Create(PP:TP);
end;

implementation
uses windows;

//*************

CONSTRUCTOR TCutter.Create(PP:TP);
begin
INHERITED Create;
fPower:=0;
p:=pp;

end;

//*************
function TCutter.GetRPM:word;

begin
 result:=rpm
end;

//****************

FUNCTION TCutter.GetPower:REAL;

BEGIN
 GetPower:= (C*(t^x)*(S^y)*(D^n))/((t*(z*n))*(S(w*n))*(T^(m*n)))
END;

//************

FUNCTION TCutter.GetSection:REAL;

BEGIN
 GetSection:=(6*GetPower*l)/q
END;

//*************

 FUNCTION TCutter.GetGab:integer;
   begin
   result:=fgab
   end;
  //************

FUNCTION TCutter.GetDeep:real;
   begin
   result:=fdeep
   end;

//*************

end.

Но сама вижу, что разработан он не совсем верно (мягко говоря). Подскажите, пожалуйста,что делать? Как написать верный код для объекта "резец"?

[Lisёноk]

Неужели никто не может мне подсказать где подправить?((

[chesser]

А где массив, содержащий все возможные размеры державки?