Дан массив, заданный датчиком случайных чисел в промежутке [-60;140]. Найти, минимальный

Var arr: array[1..100] of integer; min,max:integer;
begin
    for var i:=1 to 100 do arr[i]:=random(-60,140);
    min:=arr[1];
    max:=arr[1];
    for var i:=2 to 100 do begin
        if arr[i]lt;min then min:=arr[i];
        if arr[i]gt;max then max:=arr[i];
    end;
    writeln(arr);
    writeln('Наибольший элемент: ', max, ', Минимальный элемент: ',min);
end.