Написать класс Часы

program pr;
 
type
  clock = class              // класс часы
  private 
    minat: integer;         // первое значение минут ( всё это для того, что бы выводилось в формату hh:mm) 
    minat2: integer;     // второе значение минут 
    hours: integer;      // первое значение часов 
    hours2: integer;    // второе значение часов 
  public  
// методы 
    function  setdef(): clock;    // функция сброса времени  по умолчанию( по умолчанию время 00:00)
    begin
      minat := 0;
      minat2 := 0;
      hours := 0;
      hours2 := 0;
      
    end;
    
    function settime(ah: integer; ah2: integer; am: integer; am2: integer): clock; // функция установки времени 
    begin
      minat := am;
      minat2 := am2;
      hours := ah;
      hours2 := ah2;
    end;
    
    procedure showtime();  // функция вывода времени
    begin
      writeln(hours, hours2, ':', minat, minat2);      // сделано так для формата hh:mm
    end;
  end;
 
var
  z: clock;    // объект класса 
 
begin
  z := new clock;           // создаём 
  z.settime(1, 2, 2, 5);               // устанавливаем время в формате hh:mm
  z.showtime();   // выводим 
  z.setdef();                       // ставим время по умолчанию 
  z.showtime();    // выводим 
end.