Объясните что делает алгоритм

[Kelthagor]

uses
StrUtils {System.StrUtils в Delphi XE2}
{...}
procedure TForm2.Button1Click(Sender: TObject);
var a:array[0..2] of String;
begin
randomize;
a[0]:='в 60-х годах в Англии';
a[1]:='в 60-х годах во Франции';
a[2]:='в 80-х годах в Германии';
Radiobutton1.Caption:=randomFrom(a) ;
Radiobutton2.Caption:=randomFrom(a) ;
while Radiobutton2.Caption=Radiobutton1.C aption do
Radiobutton2.Caption:=randomFrom(a) ;
Radiobutton3.Caption:=randomFrom(a) ;
while (Radiobutton3.Caption=Radiobutton1. Caption) or (Radiobutton3.Caption=Radiobutton1. Caption) do
Radiobutton3.Caption:=randomFrom(a) ;
end;

[Utkin]

Случайным образом меняет названия Радиобатонов. При этом, как я понял старается сделать так, чтобы их значения не повторялись. Алгоритм неудачный, есть более приятный способ, можно попробовать использовать второй массив или множество.

[Zer0]

видимо пишут "тесты"))
а вариантов множество) можно перемешивать массив, действительно воспользоваться множеством, чтобы проверять был уже такой вариант использован или нет, можно использовать дин.список, откуда удалять использованный элемент...
На ваш вкус и цвет

[Utkin]

Элементарно - Стринглист перемешать ...

[Zer0]

Ну я же говорю - вариантов множество