С.Р.О.Ч.Н.О. Составить функцию, вичисляющую значение TRUE, если в первом из 2-ух

Заведем переменную типа Boolean для того, чтоб записать в нее результат сопоставленья количества отрицательных частей в массиве.
var bool:boolean;
R, W: array [1..5] of real;
R_otr, W_ortr : integer;
R и W это две переменные для хранения массивов.
После того, как их реализуют и заполнят необходимыми элементами, нам необходимо пройти по каждому элементу и посчитать те, которые меньше нуля.
Итог запишем в переменные R_otr и W_ortr:
for I:integer := 1 to 5 do
begin
if R[i]lt;0 then
R_otr := R_otr + 1;
end;
for I:integer := 1 to 5 do
begin
if W[i]lt;0 then
W_otr := W_otr + 1;
end;
if R_otr gt; W_otr then
bool := True
else
bool := False;
end.