Проверьте код Паскаль.

[KotyaraYa]

Дана матрица целых чисел. Заменить отрицательные элементы на -1, положительные на1, нулевые оставить без изменения.
У меня что-то одни единицы выходят. Что может быть не так?

program m;
uses crt;
const n=50;
var a:array [1..50] of integer; i:integer;
begin;
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(51);
if i>0 then
begin
a[i]:=1;
end;
if i=0 then
begin
end;
if i<0 then
begin
a[i]:=-1;
end;
write(a[i]);
end;
readln;
end.

[BDA]

for i:=1 to n do
begin
  a[i]:=random(101)-50;
  write(a[i], ' ');
end;
writeln;
for i:=1 to n do
begin
  if a[i]>0 then
    a[i]:=1
  else if a[i]<0 then
    a[i]:=-1;
write(a[i],' ');
end;