[Asira]

Описать 3 класса используя наследование
Лед (масса, удельная теплота плавления, удельная теплоемкость, начальная температура, количество теплоты);
Пар (масса, удельная теплота парообразования, количество теплоты);
Вода (масса, удельная теплоемкость, начальная температура, количество теплоты);
Даны масса и начальная температура вещества не выше 100 С. Определить какое количество теплоты требуется для полного испарения этого вещества.
Моё Начало

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

type TPar = class
      m,p:real;
      procedure Init;
      function Q:real;
     end;

     TVoda = class(TPar)
      x,y:real;
      procedure Init;
     end;

     TLed= class(TVoda)
      k:real;
      procedure Init;
      end;

   procedure TPar.Init;
    begin
     writeln('vvedite massu, udelnu teplotu paroobr ');
     readln(m,p);
    end;

   function TPar.Q (m,p:TPar):real;
    begin
     Q:=m.m*p.p;
    end;

       procedure TVoda.Init;
    begin
     inherited Init
     writeln('vvedite nach temperatur i udelnu teploemkost');
     readln(x,y);
    end;