Необходимо решить задачу с подмогою Paskal. Необходимо отыскать малый элемент посреди

...................................

Объяснение: заполни массив 10-ю элементами и он выдаст то, что тебе необходимо
var arr: array [1..10] of integer;
var i,min,max:integer;
begin
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент');
readln(arr[i]);
end;
min:=0;
max:=0;
for i:=1 to 10 do begin
if (arr[i]lt;0) then begin
if (arr[i]lt;min) then begin
min:=arr[i];
end;
end
else
if (arr[i]gt;0) then begin 
if (arr[i]gt;max) then begin 
max:= arr[i];
end;
end;
end;
writeln('Малый элемент посреди отрицательных чисел ',min);
writeln('Наибольший элемент посреди положительных чисел ',max);
end.