Данн одномерный массив из n элементов заполнить его случайными числами от -20 до 25 все положительными элементами заменить на 1. все отрецательные на 0

Program Task;
Const N = 10;
Var a: Array [1..N] of Integer;
i: Integer;
Begin
Randomize;
For i := 1 To N Do
a[i] := Random(25 + 20 + 1) - 20;
WriteLn('Результат №1: ');
For i := 1 To N Do
Write(a[i], ' ');
WriteLn;
For i := 1 To N Do
If a[i] > 0 Then
a[i] := 1
Else If
a[i] < 0 Then
a[i] := 0;
WriteLn('Результат №2:');
For i := 1 To N Do
Write(a[i], ' ');
ReadLn;
End.