Ошибка "Runtime error" при создании массива

program mas;
uses crt;
var
a,b,c:array[1..20]of integer;
n,i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100) -30;   {тут ругается "Runtime error"}
write(a[i]:4);
end;
for i:=1 to 10 do
begin
b[i]:=random(200) -70; {тут ругается "Runtime error"}
write(b[i]:4);
end;
n:=1;
for i:=1 to 10 do
begin
if a[i]<0 then begin c[n]:=a[i];
n:=n+1; end;
if b[i]<0 then begin c[n]:=b[i];
n:=n+1;end;
end;
for i:=1 to 10 do
begin
if a[i]=0 then begin c[n]:=a[i];
n:=n+1; end;
if b[i]=0 then begin c[n]:=b[i];
n:=n+1;end;
end;
for i:=1 to 10 do
begin
if a[i]>0 then begin c[n]:=a[i];
n:=n+1; end;
if b[i]>0 then begin c[n]:=b[i];
n:=n+1;end;
end;
writeln('итоговый масив');
for i:=1 to n-1 do
write(c[n]:4)
end.

var
  a,b,c:array[1..200] of integer;
  i,j,z:integer;
begin
  for i:=1 to 60 do {заполнение}
    a[i]:=random(100)-50;
  for i:=1 to 40 do
    b[i]:=random(100)-50;
  z:=0;
  for i:=1 to 60 do{<0}
    if a[i]<0 then
      begin
        c[z]:=a[i];
        z:=z+1;
      end;
  for i:=1 to 40 do
    if b[i]<0 then
      begin
        c[z]:=b[i];
        z:=z+1;
      end;
  for i:=1 to 60 do{=0}
    if a[i]=0 then
      begin
        c[z]:=a[i];
        z:=z+1;
      end;
  for i:=1 to 40 do
    if b[i]=0 then
      begin
        c[z]:=b[i];
        z:=z+1;
      end;
  for i:=1 to 60 do{>0}
    if a[i]>0 then
      begin
        c[z]:=a[i];
        z:=z+1;
      end;
  for i:=1 to 40 do
    if b[i]>0 then
      begin
        c[z]:=b[i];
        z:=z+1;
      end;
  for i:=1 to z do
    write(c[i],', ');
  writeln;
  readln;
end.

program mas;
uses crt;
var a,b,c:array[1..20]of integer;
    n,i:integer;
begin
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to 10 do
 begin
  a[i]:=random(100) -30;   {Это не тут ругается "Runtime error", а вообще ругается}
  write(a[i]:4);
 end;
writeln;
writeln;
writeln('Массив В:');
for i:=1 to 10 do
 begin
  b[i]:=random(200) -70; {И не тут, а идет ошибка времени исполнения программы
                          поскольку массив объявлен из 20 элементов, а Вы пытаетесь
                           засунуть в него 21 элемент. Если объявить [1..21] или отключить 
                            Range Error {$R-}, то ошибки не будет, но программа у вас все равно с                             ошибками}
  write(b[i]:4);
 end;
writeln;
writeln;
n:=0;{инициируем рвзмер нового массива}
for i:=1 to 10 do
 begin
  if a[i]<0 then
   begin
    n:=n+1;{сначала выделяем ячейку}
    c[n]:=a[i];{потом в нее пишем, а не наоборот}
   end;
  if b[i]<0 then
   begin
    n:=n+1;
    c[n]:=b[i];
   end;
 end;
for i:=1 to 10 do
 begin
  if a[i]=0 then
   begin
    n:=n+1;
    c[n]:=a[i];
   end;
  if b[i]=0 then
   begin
    n:=n+1;
    c[n]:=b[i];
   end;
end;
for i:=1 to 10 do
 begin
  if a[i]>0 then
   begin
    n:=n+1;
    c[n]:=a[i];
   end;
  if b[i]>0 then
   begin
    n:=n+1;
    c[n]:=b[i];
   end;
 end;
writeln('итоговый масив');
for i:=1 to n do
write(c[i]:4);{ну и здесь вы пытались все время выводить последний элемент массива}
readln
end.