Объявить в Delphi класс, позволяющий объекту хранить информацию о количестве обсадных труб скважины

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 Ttrub=class(TObject)
   kol:integer;
   tr:array of array[1..2]of real;
   function Objem(k:integer):real;//объем трубы
   procedure Nomer(var sr,mx:real;var imx:integer);//номер с макс. откл. от сред.
 end;
var
  Form1: TForm1;
  a:Ttrub; //объект класса
implementation
 
{$R *.dfm}
function Ttrub.Objem(k:integer):real;
begin
result:=tr[k,1]*sqr(tr[k,2]/2000)*pi; //длина*квадрат радиуса в метрах*pi
end;
procedure Ttrub.Nomer(var sr,mx:real;var imx:integer);
var i:integer;
begin
sr:=0; //средний объем
for i:=0 to kol-1 do
sr:=sr+Objem(i);
sr:=sr/kol;
mx:=abs(Objem(0)-sr);//максимальное отклонение от среднего
imx:=1;
for i:=1 to kol-1 do
if abs(Objem(i)-sr)>mx then
 begin
  mx:=abs(Objem(i)-sr);
  imx:=i+1;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var  c,i:integer;
begin
a:=Ttrub.Create;//создаем объект
val(Edit1.Text,a.kol,c); //проверяем ввод кол. труб
if(c<>0)or(a.kol<1)then
 begin
  ShowMessage('Неверно введено количество труб');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
setlength(a.tr,a.kol);//выделяем память под массив труб
with StringGrid1 do //задаем параметры таблицы
 begin
  fixedrows:=1;
  fixedcols:=1;
  rowcount:=a.kol+1;
  colcount:=3;
  defaultcolwidth:=75;
  cells[1,0]:='Длина, м';
  cells[2,0]:='Диаметр, мм';
  options:=options+[goEditing];
  scrollbars:=ssVertical;
  for i:=1 to a.kol do
  cells[0,i]:=inttostr(i);
 end;
ShowMessage('Введите длины труб в метрах'+#13#10
            +'и внутренние диаметры в миллиметрах');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,imx,j,c,k:integer;
    sr,mx:real;
begin
k:=0; //поверяем правильность ввода данных и запись их в массив
i:=1;
while(i<=a.kol)and(k=0) do
 begin
  j:=1;
  while(j<3)and(k=0) do
   begin
    val(StringGrid1.Cells[j,i],a.tr[i-1,j],c);
    if (c<>0)or(a.tr[i-1,j]<=0) then k:=1
    else inc(j);
   end;
  if k=0 then inc(i);
 end;
if k=1 then
 begin
  ShowMessage('Не все значения введены корректно, поправьте');
  exit
 end;
StringGrid1.ColCount:=StringGrid1.ColCount+1;//добавляем столбец
StringGrid1.Cells[3,0]:='Объем, м';//для объема
for i:=1 to a.kol do
StringGrid1.Cells[3,i]:=floattostrF(a.Objem(i-1),ffFixed,10,5);//вычисляем и пишем объемы
a.Nomer(sr,mx,imx);//вычисляем максимальное отклонение от среднего и номер трубы
ShowMessage('Средний объем трубы='+floattostrF(sr,ffFixed,10,5)+#13#10
           +'Наибольшее отклонение от среднего имеет труба номер '+inttostr(imx)
           +#13#10+'оно равно '+floattostrF(mx,ffFixed,10,5));
 
a.Free;//освобождаем память выделенную под объект
end;
 
end.