программа часы,надо чуть-чуть переделать

[RadioDream]

Изначальное задание создать класс часы,в качестве полей должны быть минуты,секунды,часы и формат времени.
Надо переделат программу так чтобы можно было менять формат введенного времени сколько угодно раз переходя из 12часавого в 24часовой и обратно.
Помогите пожалуйста

program Lab1;
uses crt;
  type
      clock=object
      hour,min,sec:byte;
      form: integer;
      procedure vvod(hn,mn,sn:byte);
      procedure vivod;
      procedure format(fn:integer);
   end;


procedure clock.vvod;
begin
         hour:=hn;
         min:=mn;
         sec:=sn;
end;


procedure clock.vivod;
        begin
          writeln(hour,':',min,':',sec);
          writeln;
end;



procedure clock.format;
begin
         form:=fn;
         case form of
                0: if hour>12 then hour:=hour-12;
                1: if hour>12 then hour:=hour;
         end;
end;


var clockvar: clock;
       hm,mm,sm:byte;
       fm,er: integer;

begin
             ClrScr;
             with clockvar do
             begin
                er:=1;
                while (er<>0) do
                begin
                     write('zadai sekundi: ');
                     readln(sm);
                     write('zadai minuti: ');
                     readln(mm);
                     write('zadai chasi: ');
                     readln(hm);
                     vvod(hm,mm,sm);
	   writeln;
                    writeln('0 - 12 hours');
                    writeln('1 - 24 hours');
                    write('zadai format: ');
                    readln(fm);
                    format(fm);
                    if (sm<60) and (mm<60) and (hm<24) and ((fm=0) or (fm=1)) then er:=0;
	end;
                 vivod;

            end;
            Readkey;
end.

[_-Re@l-_]

Мда...Я в своё время делал программу "Часы" без всяких объектов, классов,процедур т.п. Только циклы и оператор if.