Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию. После этого определите и выведите на экран «наименьший» и «наибольший» символы.

var a:array[1..15] of char;

i,min,max:integer;

Begin

  min=1;

  max=1;

  for i:= 1 to 15 do begin

    a[i]:= chr(random(256));

    if a[min]>a[i] then min:=i;

    if a[max]<a[i] then max:=i;

  end;

  writeln(a[min], a[max]);

End.