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

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.