Заполнить массив 20 случайными числами (использовать генератор случайных чисел).Найти в массиве

const m = 20; var arr: array[1..m] of integer; i, j, k,r: integer; begin for i := 1 to m do begin arr[i] := random(256); end; for i := 1 to m-1 do for j := 1 to m-i do if arr[j] gt; arr[j+1] then begin k := arr[j]; arr[j] := arr[j+1]; arr[j+1] := k end; write (arr[20]); readln end.