random

[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.

[Serge_Bliznykov]

кросспост!

ЗАКРЫТО!