Найти ошибку в программе

type x=array[1..10]of integer;
 var
    a,b,c:x;
   j,l,i,k:integer;
begin
 
randomize;
for i:=1 to 10 do
begin
    a[i]:=random(11)-5;
    write(a[i]:4);
end;
k:=0;
i:=0;
for i:=1 to 10 do
begin
if a[i]>0 then
k:=k+1;
b[k]:=a[i];
end
 
else
begin
i:=i+1;
c[i]:=a[i];
end;
end;
for i:=1 to k do
a[i]:=b[i];
j:=k;
for i:=1 to 10-k do
begin
j:=j+1;
a[i]:=c[i];
end;
for i:=1 to 10 do
writeln (a[i]:3:2);
 
end.

uses crt;
type x=array[1..10]of integer;
 var
    a,b,c:x;
   j,l,i,k:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
    a[i]:=random(11)-5;
    write(a[i]:4);
  end;
writeln;
k:=0;
i:=0;
for j:=1 to 10 do
if a[j]>0 then
 begin
   k:=k+1;
   b[k]:=a[j];
 end
else
 begin
  i:=i+1;
  c[i]:=a[j];
 end;
for i:=1 to k do
a[i]:=b[i];
j:=k;
for i:=1 to 10-k do
 begin
  j:=j+1;
  a[i]:=c[i];
 end;
writeln('Итоговый массив');
for i:=1 to 10 do
write (a[i]:3);
end.

const n=15;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(20)-9;
     write(a[i],' ');
   end;
writeln;
k:=0;
for i:=1 to n do
if a[i] >0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
end.