Неправильно считает что поменять нужно?

[Berserk0]

Введите три числа с клавиатуры,смените цвет фона экрана и выведите числа в центре экрана их квадраты в порядке убывания---вот задание
uses crt;
var a,b,c,d,e,r:integer;
begin
writeln('vvod 3 4isel');
readln(a,b,c);
textbackground(3);
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
d:=a; e:=b;
if b>d then b:=d;
if c>d then c:=d;
if a<e then a:=e;
if c<e then c:=e;
if(a>e) and(a<d) then r:=a;
if(b>e) and (b<d) then r:=b;
if (c>e) and (c<d) then r:=c;
gotoxy (20,20);
writeln(d);
writeln(r);
writeln(e);
readln;
end.

[Летучий_СкилетиК]

помоему так проще:

uses crt;
var a:array[1..3]of integer;
    i,j,t:integer;
begin
writeln('vvod 3 4isel');
read(a[1],a[2],a[3]);
textbackground(3);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then begin t := a[i];a[i]:=a[j];a[j]:=t;end;
gotoxy (20,20);
write(a[1]*a[1]:3,a[2]*a[2]:3,a[3]*a[3]);
readln;
end.

[Berserk0]

ОЧЕНЬ ПРИЗНАТЕЛЕН