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.