ale po co sortowac mozna to zrobic w ten sposob ze wylosowana liczba to jej index w tablicy i tylko zwiekszamy wartosc a potem zwiekszamy tylko wartosc w tablicy i szukamy max
program losownie;
uses crt;
type T = array[1..100] of integer;
var tab : T;
i, ran, j, ind : integer;
begin...