5768158594

(pi	rzypisar	lie wartość	i polom obiektu)
x :	:= nX;
y s	:= nY;
end;

xl, yl : Integer;

moj punkt : punkt; {deklaracja zmiennej typu klasowego) try

writeln('Podaj współrzędne punktu: '); readln(xl, yl);

moj_punkt := punkt.Inicjuj(xl, yl); {zainicjowanie obiektu)

writeln('Wartości początkowe: x = ', moj_punkt.rzedną,    y = moj_punkt.odcięta )

writeln('Podaj współrzędne punktu: '); readln(xl, yl);

moj_punkt.współrzędne(xl, yl);

writeln('Wartości po zmianie: x = ', moj_punkt.rzedną, ', y = ', moj_punkt.odcięta ) readln;

{ TODO -oUser -cConsole Main : Insert codę here ) except

on E: Exception do

Writeln(E.ClassName, ': ', E.Message);

end;