Работа с массивом / Delphi

[unreal2x]

Всем привет. Нужна помощь... Не пойму как сделать так, чтоб отображалось не одно сообщение, а все 3 (или сколько будет в массиве) по очереди в случайном порядке...

procedure TForm1.Button3Click(Sender: TObject);
const
N=3;
Arr:array[1..N] of string=(
'Первая',
'Вторая',
'Третье'
);
var
i:integer;
begin
i:=1+Random(N);
showmessage(Arr[i]);
end;

[=master=]

Цикл нужен.

[unreal2x]

Спасибо! Разобрался...

[=master=]

А где "случайный порядок". как в условии?

[unreal2x]

Вот я тут и задумался...)) что то вроде этого showmessage(Arr[1+Random(N)]); Но фишка в том что генерит Первое-Второе-Первое.
а Третье выпало...

[SlavaSSU]

var
a:array[1..1000] of string;
b:array[1..1000] of byte;
i,n,kol,tek:integer;
begin 
randomize;
writeln('vvedite kolichestvo slov');
readln(n);
writeln('vvedite ',n,' slov');
for i:=1 to n do begin b[i]:=0; readln(a[i]); end;
for kol:=1 to n do begin
tek:=random(n)+1;
while (b[tek]=1) do tek:=random(n)+1;
writeln(a[tek]);
b[tek]:=1;
end;
end.