if a<t then
begin
  if b=t then
  begin
    temp:=b;b:=a;a:=temp;
  end;
  if c=t then begin temp:=c;c:=a;a:=temp; end;
   if d=t then begin temp:=d;d:=a;a:=temp;end;
end;