Pascalda Rasgele Sayılar Dizisi

program rasgele_sayi_uretimi;
uses wincrt;
const
n=25;
type
dizi=array[1..100] of integer;
var
i,max:integer;
d:dizi;
function buyuk(var d:dizi;k:integer):integer;
var
j,big:integer;
begin
big:=d[1];
for j:=2 to k do
if big<d[j] then big:=d[j];buyuk:=big;
end;
begin
randomize;
for i:=1 to n do
d[i]:=random(100);
max:=buyuk(d,n);
writeln('dizinin en buyuk elemani:',max);
writeln('rasgele sayilar dizisi');writeln;
for i:=1 to n do
write(d[i]:4);
end.