Class Kullanımı

program class_kullanimi;
{$APPTYPE CONSOLE}

type
yer=class
private
x,y:integer;
public
procedure verioku(ilkx,ilky:integer);
procedure veriyiyaz(yx,yy:integer);
end;

procedure yer.verioku(ilkx,ilky:integer);
begin
x:=ilkx;
y:=ilky;

end;

procedure yer.veriyiyaz(yx,yy:integer);
begin
write('X:',X,' ','Y:',Y);

end;
var
y1:yer;
begin
y1.verioku(5,10);
y1.veriyiyaz(y1.x,y1.y);
readln;
end.