Всем привет! программа Делфи

Поставлена задача создать консольное приложение с классом TSquare.Вычислить площадь и периметр методами: Area и Perimetr.
Создал код, но препод забраковал его, хотя всё высчитывает и работает нормально. Являюсь новичком. Может, кто поможет, что здесь не так.
Голову уже сломал. Нормальных самоучителей не могу найти, чтобы было ясно и понятно.
Как поставить деструктор?

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type TSquare=class
private
x,y,a:integer;
public
constructor create(ax,ay,aa:integer);
function perimetr:integer; //ïåðèìåòð
function area:integer; //ГЇГ «Г®Г№Г*äü
procedure show;//ðåçóà «ГјГІГ*ГІ
function verify(tx,ty:integer):boolean;//ïðîâåðêГ*
end;
constructor TSquare.Create;
begin
inherited Create;
x:=ax; y:=ay; a:=aa;
end;
function TSquare.perimetr;
begin
result:=4*a;
end;
function TSquare.area;
begin
result:=a*a;
end;
procedure TSquare.show;
begin
writeln('Perimetr=',perimetr);
writeln('Ploshad=',area);
end;
function TSquare.verify(tx,ty:integer):boolean;
begin
result:=(x+a div 2=tx)and(y-a div 2=ty);
end;
var sqA:TSquare;
x1,y1,a1:integer;
begin
writeln('Vvedite xA,yA,aA');
readln(x1,y1,a1);
sqA:=TSquare.create(x1,y1,a1);
sqA.show;
readln

end.