Помогите пожалуйста (Delphi)

[Alex Dreamer]

Помогите пожалуйста решить задачу, очень нужно.

вот задание:
Описать логическую функцию перестановка (x,y),проверяющую, можно ли ,переставить литеры слова x, получить слово y.

[Alex Dreamer]

Спасибо, решение уже не требуется) помогите решить на мультипликацию пожалуйста... вообще не знаю как... вот задание:

Получить мультфильм «Круги на воде», используя семь концентрических окружностей. Центры окружностей должны быть совмещены с центром экрана, а радиусы изменяться от 40 пиксел до 82 пиксел, увеличиваясь с каждой следующей окружностью. Иллюзия движения должна создаваться последовательной сменой цветов всех окружностей, начиная с внутренней и кончая внешней.

[SERG1980]

procedure TForm1.Button2Click(Sender: TObject);
var cx,cy,i,a:integer;
begin
 cx:=round(form1.Width/2);
 cy:=round(form1.Height/2);
 a:=40;
 repeat
  form1.Canvas.pen.Color:=random($FFFFFF);
  form1.Canvas.Ellipse(cx-round(a/2),cy-round(a/2),cx+round(a/2),cy+round(a/2));
  sleep(100);
  application.ProcessMessages;
  form1.Canvas.Brush.Color:=form1.Color;
  form1.Canvas.Ellipse(cx-round(a/2),cy-round(a/2),cx+round(a/2),cy+round(a/2));
  inc(a,2)
 until a=82;
 end;

[Alex Dreamer]

Спасибо большое