newbie - OOP in Ada Set and Get Methods

["R" <ruthless@poczta.onet.pl>]

Hello.

I'm new to Ada95. I was trying to create on 'object' in Ada with Set
and Get methods.

But I failed...

I'm not sure whether or not my thinking in Ada is proper - Ada verries
a lot from C++ and Java OOP...

My codes are below

thanks in advance

best regards R

main.db unit:

with Text_IO;
use Text_IO;
with testclass;
procedure Main is
T: testclass.rec1;
begin
T.Set(5);
Put_Line(Integer'Image(T.Get));
end Main;

testclass.ads:
package testclass is

type rec1 is tagged null record; --is abstract

field: Integer;

function Set(s: Integer) return Integer;
function Get return Integer;

end testclass;

and testclass.adb
package body testclass is
function Set(s: Integer) return Integer is
begin
field := s;
return field;
end Set;

function Get return Integer is
begin
		return field;
	end Get;

end testclass;