Помогите пожалуйста, Безотлагательно!!!!В двумерном массиве положительные элементы, по величине

Const n=5;
var
a: array[1..n, 1..n] of real;
i, j: integer;
begin
//считаем массив
for i:=1 to n do
   for j:=1 to n do
      readln(a[i,j]);
//заменим все элементы gt;0 и lt;1 нулями
for i:=1 to n do
   for j:=1 to n do
      if (a[i, j] gt; 0) and (a[i, j] lt; 1) then
         a[i,j] := 0;
end.