Hogyan csináljam meg Free Pascalban a változók sorsolását?

Ha a változók string tipusúak, akkor használj egy tömböt.

program sorsol;

uses crt;

var s: array[1..255] of string;

sorszam:integer

procedure feltolt;

var sorszam:integer;

Begin

for i:=1 to 255 do begin

Writeln('kérem a szöveget');

readln(s[i]);

end;

end.

Begin

feltolt;

Randomize;

sorszam:=random(255)+1;

Writeln('A sorsolt szöveg: ',tomb[sorszam]);

end.

Hát ennyi lenne a feladat. Azonos tipusú adatokat így lehet sorsolni. Persze a feltolt eljárásban érdemes a for ciklus helyett másképpen csinálni( mivel 255 string tipusú változót kell megadni). De most ehhez volt kedvem:))