НЕLP. Напишите программу по поиску наименьшего элемента в массиве (массив заполнить случайными числами из диапазона от -5 до 44)

СПАСИБО❤

//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)var    arr: array[1..20] of integer;    m: integer := 45;begin    for var k := 1 to 20 do    begin        arr[k] := random(49) - 5;        if arr[k] < m then m := arr[k];    end;    write('Исходный массив: ');    for var k := 1 to 20 do    begin        write(arr[k], ' ');    end;    writeln;    write('Наименьшее число массива: ', m);end.