случайные слова

[bonifacy7]

Привет!
Нужно написать программу, которая позволяла бы выводить список слов в столбик и при каждом запуске программы меняли свое место расположение в строке.

Как сделать, чтобы список отображался random??

program memory01;
uses crt;
const wor:array [1..5] of string=('жаба','жмот','жаренный','жид','жбан');
var
i:integer;
begin
clrScr;
randomize;
for i:=1 to 5 do
 begin
   writeln(i:5,' ', wor[i]);
 end;
   readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mss]

icq 169527143

[Asinkrit]

Как вариант:

type
  TWords = array [1..5] of String;

const wor:TWords=('жаба','жмот','жаренный','жид','жбан');

var
  i,r2:integer;
  words:TWords;
  str:string;
begin
clrscr;
randomize;
words:=wor;

for i:=1 to 5 do
  begin
  r2:=random(5)+1;
  str:=words[i];
  words[i]:=words[r2];
  words[r2]:=str;
  end;

for i:=1 to 5 do
 begin
   writeln(i:5,' ', words[i]);
 end;
   readln;

end.

[bonifacy7]

Спасибо, работает!!

Немного усовершенствовал программу и не получается использовать функцию "random".
Сейчас программа выдает такую штуку:

ПППП
ПППП
ППППП
ППППП
ПППППП
ПППППП

А нужно:

АВРО
ЛОПД
ЛДОРЩ
ДЮЛОИ
РПРПАМЛ
ОРПГНПН

Помогите пожалуйста, так долго мучаюсь(((

program memory01;
uses crt;
type
 TWords=array [1..27] of string;
const
 wor:TWords=('Ђ','Ѓ','‚','ѓ','„','…','†','‡','€','Љ','‹','Њ','Ќ','Ћ','Џ','ђ','‘','’','“','”','–','—','˜','™','ќ','ћ','џ');

var
i,r2,k,j,m:integer;
words:TWords;
str:string;

begin
clrScr;
randomize;
words:=wor;

for i:=1 to 27 do

 begin
  r2:=random(27)+1;
  str:=words[i];
  words[i]:=words[r2];
  words[r2]:=str;
 end;

for j:=1 to 5 do
  begin
    for k:=1 to 2  do
      begin
        for m:=1 to j+3 do
         // begin
           // for i:=1 to 27 do
             // begin
                write(words[i]);
            //  end;
         // end;
        writeln;
      end;
  end;
 readln;
end.