Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal

Формулировка задачи:

Код к задаче: «Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal»

var
  a : array [1..15] of integer;
  i : integer;
begin
  writeln('вводим массив:');
  for i := 1 to 15 do
  begin
    write('[', i, '] = ');
    readln(a[i])
  end;  
  writeln('исходный массив:');
  for i := 1 to 15 do write(a[i]:4);  
  writeln;
  writeln('после замены:');
  for i := 1 to 15 do
  begin
    if a[i] > 0 then a[i] := 1 else
      if a[i] = 0 then a[i] := 9 else 
        a[i] := 0;
    write(a[i]:4)
  end;
  readln
end.