Lehet ezt pascalban?

Igen, lehet. Beleteszed egy tömbbe, vagy egy stringlistbe a mondataidat, majd a generálsz egy véletlen számot 1 és a tömb legnagyobb eleme (stringlist elemei) között majd kiíratod a szám alapján az adott indexű tömbelemet.

pl:

program veletlenszoveg;

uses classes,sysutils;

var

strl: TStringList;

i: integer;

begin

randomize;

strl:=TStringlist.Create;

strl.loadfromfile('mondatok.txt');

i:=random(strl.count-1);

writeln(strl[i]);

strl.clear;

strl.free;

end.

Ebben a rövid programban létrehozunk egy stringlistet. Majd betöltjük bele a mondatok.txt fájlt, ami tartalmazza a kiíratandó szöveget. Majd generálunk egy véletlen számot. Ezt a számot indexként használva kiíratjuk a stringlist egy elemét. Arra figyelj hogy a stringlist 0-tól indexeli a tartalmát, de a count a tartalmazott darabszámot adja vissza. A kód tesztelve nem volt, csak itt pötyögtem be neked, de azért talán fog működni.