Реализация классов.

[tabl1]

функционал программы должен быть реализован как класс, размещённый в отдельном модуле. как это сделать.
вот код рабочей программы в консоле delphi:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,
Unit1 in 'Unit1.pas';

var n,k,s:longint;
begin
write('Vvedite naturalnoe chislo n=');
readln(n);
s:=0;k:=0;
while n>0 do
begin
k:=k+1;
s:=s+n mod 10;
n:=n div 10;
end;
writeln('Colichestvo cifr=',k);
writeln('Summa cifir=',s);
readln
end.

[s-andriano]

А каков функционал-то?