Объектно -ориентированное программирование

[Asira]

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

program Project2;

{$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;

[Utkin]

а) Отсутствие комментариев. Почему-то у начинающих считается делом принципа не писать комментарий к программе. Поэтому часто заходят в тупик, как при разработке программ, так и при их отладке.
б) Давайте функциям и переменным осмысленные имена - причина такая же как и пункт а).

[Asira]

Комментарии излишни......
ту вроде итак видно что у меня описаны только три класса , сомневаюсь в правильности их описания.....
вопрос как осуществить это условие
Даны масса и начальная температура вещества не выше 100 С. Определить какое количество теплоты требуется для полного испарения этого вещества.

[shelest]

  writeln('vvedite massu, udelnu teplotu paroobr ');
     readln(m,p);

 writeln('vvedite nach temperatur i udelnu teploemkost');
     readln(x,y);

это вы так в обьектном программировании вводите данные???