[SerginhoLD]

ну и в чем проблема? незнаешь как элементы переставлять местами чтоль?

Код:

procedure swap(var a,b: integer);
var t:integer;
begin
  t:=a; a:=b; b:=t;
end;