Написать программку, которая выводит на экран линейный массив из 10 случайных

Uses Crt;

var
  a:array[1..10] of shortint;
  i:byte;
begin
  randomize;
  for i:=1 to 10 do
  begin
    a[i]:=Random(21)-10;
    if a[i]lt;0 then TextColor(LightBlue)
    else if a[i]gt;0 then TextColor(LightRed)
    else TextColor(White);
    Write(a[i],' ')
  end;
  TextColor(White);
  Writeln
end.

Uses crt;
var
  a: array [1..10] of integer;
  i: byte;
 
begin
randomize;
writeln(' *** Начальный массив ***');
for i := 1 to 10 do
begin
  a[i] := random(50)-25;
  if a[i] lt; 0 then TextColor(1);
  if a[i] = 0 then TextColor(15);
  if a[i] gt; 0 then TextColor(4);
  write(a[i], ' ');
end;
TextColor(15);
writeln;  
end.