Массив-подскажите ошибку в программе

program mov_2v;                   {nazvanie PRGM}
var
     a:array[1..10] of integer; {opisanie massiva}
     b:array[1..10] of integer;
     n,i,j,k,m:integer;     {opisanie peremennih}
BEGIN           {nachalo PRGM}
writeln;            {perevod stroki}
randomize;          {opisanie generatora}
n:=6;               {chislo elementov v vfssive-«n»}
k:=4;               {pervie k=4 elementa massiva perenesti vo vremen massiv}
m:=2;               {m=n-k ostavshiesa 2 elementa massiva peredvinut v nachalo}
     for i:=1 to n do
          begin
               a[i]:=random(50);    {zapolnenie massiva}
               write(a[i]:4)            {1. vivod massiva-a}
          end;
{--------------------}
writeln;
     for i:=1 to n do
          begin
               b[i]:=0;
               write(b[i]:4)          {2. vremen massiv-b}
          end;
{-------------------------------------------------------------}
{ Perenos "k" elementov iz massiva"a" vo vremennii massiv "b" }
{-------------------------------------------------------------}
writeln;
j:=1;
     for i:=1 to k do
          begin
               b[j]:=a[i];
               inc(j);
          end;
{--------------------}
     for j:=1 to n do
          begin
               write(b[j]:4);         {3. k(4) chisel vo vremen massive}
          end;
{-----------------------------------------------------------------}
{           sdvig 2-x (m=n-k=2) elementov na "k pozisii vlevo"       }
{-----------------------------------------------------------------}
writeln;
        for i:=k+1 to k+m do
          begin
               a[i-k]:=a[i];
               inc(i);
            end;
{--------------------}
  for i:=1 to n do
          begin
               write(a[i]:4);         {4. sdvig m(2)chisla na k(4)shaga}
          end;
{----------------------------------------------------------------}
{vozvrat  iz vspomogatelnogo massiva «k» elementov }
{----------------------------------------------------------------}
writeln;
     for j:=1 to k do
          begin
               a[m+1]:=b[j];
               inc(m);
          end;
     for i:=1 to n do
          begin
               write(a[i]:4);         {5. rezultat-massiv}
          end;
{--------------------}
readln;     {vvod "BK" - prodolzenie raboti }
END.

uses crt;
var a,b:array[1..100] of integer;
    n,k,i:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
   begin
     a[i]:=i;
     write(a[i],' ');
   end;
writeln;
write('k=');readln(k);
writeln('Massiv K chisel:');
for i:=1 to k do
   begin
    b[i]:=a[i];
    write(b[i],' ');
   end;
writeln;
writeln('Ostatok massiva A:');
for i:=1 to n-k do
   begin
    a[i]:=a[i+k];
    write(a[i],' ');
  end;
writeln;
writeln('Rezultat:');
for i:=n-k+1 to n do
a[i]:=b[i+k-n];
for i:=1 to n do
write(a[i],' ');
readln
end.