Определить макс и мин значение числа. ПАСКАЛЬ.

begin
randomize;
for I:=1 to n do
begin
rand[i]:=random(15);
end;

{ sortirovka massiva po vozrastanuy }

for j:=1 to n - 1 do
begin
for j:=i + 1 to n do
begin
if rand[i] > rand[j] then
begin
k:=rand[i];
rand[i]:=rand[j];
rand[j]:=k;
end;
end;
end;

{ skolko minimalnih }

j:=0;
i:=1;
while (i <= n) and (rand[i] = rand[1]) do
begin
j:=j + 1;
i:=i + 1;
end;

write('min zna4 = ');
writeln(rand[1]);
write('takih ');
writeln(j);

{ skolko maximalnih }

j:=0;
i:=n;
while (i >= 1) and (rand[i] = rand[n]) do
begin
j:=j + 1;
i:=i - 1;
end;

write('max zna4 = ');
writeln(rand[n]);
write('takih ');
writeln(j);

writeln();

{ vivod massiva }

for i:=n downto 1 do
writeln(rand[i]);

readln;

end.