Помогите найти и исправить ошибку

Program Sort;
uses crt,graph;
const NN:array[1..10] of integer=(20,40,60,80,100,120,140,160,180,200);
type t=array[1..1000] of integer;
var
  aa:t;
  s,c:integer;
  n:integer;
  p:integer;
  u:integer;
  Driver,Mode,Error,i:integer;
  m,l,r,per:integer;
  st:string;
procedure Sort_Shell(var b:t;var m,c,p:integer); {Процедура сортировки Шелла}
var i,j,k,step,l,x:integer;
begin
 l:=m;
 step:=l div 2;
 while step>0 do
 begin
  for i:=1 to l-step do
   begin
    j:=i;
    while (j>=1) and (b[j]>b[j+step]) do
     begin
      inc(c);
      x:=b[j];
      b[j]:=b[j+step];
      b[j+step]:=x;
      dec(j);
     end;
    inc(p);
    end;
  step:=step div 2;
 end;
end;     {Конец процедуры сортировки Шелла}
Procedure sl(var a:t; p,q:integer);{Процедура, сливающая массивы}
 var r,i,j,k:integer;
     b:t;
  begin
   r:=(p+q) div 2;
   i:=p; j:=r+1;
    for k:=p to q do
    if (i<=r) and ((j>q) or (a[i]<a[j])) then
     begin
      inc(u);
      b[k]:=a[i];inc(i);
     end
     else
       begin
        b[k]:=a[j]; inc(j);inc(per);
       end;
     for k:=p to q do
     a[k]:=b[k];
  end;
Procedure sort_slij(var a:t; p,q:integer);
 begin
  if p<q then
   begin
    sort_slij(a,p,(p+q) div 2);
    sort_slij(a,(p+q) div 2+1,q);
    sl(a,p,q);
   end;
 end;
begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
  n:=NN[i];
  writeln('Начальный массив при n= ',n);
  for s:=1 to n do
  begin
   aa[s]:=random(100);
   write(aa[s],' ');
  end;
 writeln;
readln;
end;
clrscr;
{Сортировка массива по методу Шелла}
 writeln('Сортировка массива по методу Шелла:');
 for i:=1 to 10 do
  begin
  n:=NN[i];
  Sort_Shell(aa,n,c,p);
  writeln('Отсортированный массив при n= ',n);
   for s:=1 to n do write(aa[s],' ');
    writeln;
    writeln('Количество сравнений равно ',p);
    writeln('Количество перестановок равно ',c);
    writeln;
    readln;
  end;
{Сортировка массива слиянием}
 writeln('Сортировка массива слиянием');
 for i:=1 to 10 do
  begin
  n:=NN[i]; 
  sort_slij(aa,1,n);
 writeln('Отсортированный массив при n= ',n);
  for s:=1 to n do write(aa[s],' ');
   writeln;
   writeln('Количество сравнений равно ',u);
   writeln('Количество перестановок равно ',per);
   writeln;
   readln;
  end;
end.

program SortSlian;
uses crt;
type mas=array[1..1000] of integer;
procedure Sliv(var a:mas;p,q : integer);
{процедура сливающая массивы, p-начало, q-конец}
var r,i,j,k : integer;
    b:mas;
begin
 r:=(p+q) div 2;{делим массив}
 i:=p;{начало левой половины}
 j:=r+1;{начало правой половины}
 for k:=p to q do{смотрим от начала до конца}
 if (i<=r) and ((j>q) or (a[i]<a[j])) then
 {переставляем элементы из половин в новый массив, упорядочивая пары}
  begin
   b[k]:=a[i];
   i:=i+1;
  end
 else
  begin
   b[k]:=a[j];
   j:=j+1;
  end ;
 for k:=p to q do
 a[k]:=b[k];
end;
{рекурсивная процедура сортировки, проверяет если осталось
меньше одного элемента, повторяет слияние в левой или правой частях массива}
procedure Sort(var a:mas;p,q : integer); {p,q - индексы начала и конца сортируемой части массива}
begin
 if p<q then {массив из одного элемента тривиально упорядочен}
 begin
  Sort(a,p,(p+q) div 2);{сортируем левую половину}
  Sort(a,(p+q) div 2 + 1,q);{правую половину}
  Sliv(a,p,q);{сливаем две половины}
 end;
end;
var a:mas;
    n,i:integer;
begin
 clrscr;
 randomize;
 write('Размер массива n=');
 readln(n); {Определение размера массива A - N) и его заполнение}
 writeln('Исходный массив:');
 for i:=1 to n do
  begin
   a[i]:=random(50);
   write(a[i],' ');
  end;
 writeln;
 writeln;
 {запуск сортирующей процедуры, сортируем от первого до последнего элемента}
 Sort(a,1,N);
 {Вывод отсортированного массива A}
 writeln('Результат сортировки:');
 for i:=1 to n do
 write(a[i],' ');
 readln
end.

for i:=1 to n do 
 begin
  k:==NN[i]);
  ............
 end;

Program Sort;
uses crt;
const NN:array[1..10] of integer=(20,40,60,80,100,120,140,160,180,200);
type t=array[1..1000] of integer;
var
  aa,bb:t;
  s,c:integer;
  n:integer;
  p:integer;
  u:integer;
  Driver,Mode,Error,i:integer;
  m,l,r,per:integer;
  st:string;
procedure Sort_Shell(var b:t;var m,c,p:integer); {Процедура сортировки Шелла}
var i,j,k,step,l,x:integer;
begin
 l:=m;
 step:=l div 2;
 while step>0 do
 begin
  for i:=1 to l-step do
   begin
    j:=i;
    while (j>=1) and (b[j]>b[j+step]) do
     begin
      inc(c);
      x:=b[j];
      b[j]:=b[j+step];
      b[j+step]:=x;
      dec(j);
     end;
    inc(p);
    end;
  step:=step div 2;
 end;
end;     {Конец процедуры сортировки Шелла}
Procedure sl(var a:t; p,q:integer);{Процедура, сливающая массивы}
 var r,i,j,k:integer;
     b:t;
  begin
   r:=(p+q) div 2;
   i:=p; j:=r+1;
    for k:=p to q do
    if (i<=r) and ((j>q) or (a[i]<a[j])) then
     begin
      inc(u);
      b[k]:=a[i];inc(i);
     end
     else
       begin
        b[k]:=a[j]; inc(j);inc(per);
       end;
     for k:=p to q do
     a[k]:=b[k];
  end;
Procedure sort_slij(var a:t; p,q:integer);
 begin
  if p<q then
   begin
    sort_slij(a,p,(p+q) div 2);
    sort_slij(a,(p+q) div 2+1,q);
    sl(a,p,q);
   end;
 end;
begin
clrscr;
randomize;
for i:=1 to 10 do
 begin
  n:=NN[i];
  writeln('Начальный массив при n= ',n);
  for s:=1 to n do
   begin
    aa[s]:=random(100);
    write(aa[s],' ');
   end;
 writeln;
 readln;
{Сортировка массива по методу Шелла}
 writeln('Сортировка массива по методу Шелла:');
 bb:=aa;
 Sort_Shell(bb,n,c,p);
 writeln('Отсортированный массив при n= ',n);
 for s:=1 to n do write(bb[s],' ');
 writeln;
 writeln('Количество сравнений равно ',p);
 writeln('Количество перестановок равно ',c);
 writeln;
 readln;
 {Сортировка массива слиянием}
 bb:=aa;
 writeln('Сортировка массива слиянием');
 sort_slij(bb,1,n);
 writeln('Отсортированный массив при n= ',n);
 for s:=1 to n do write(bb[s],' ');
 writeln;
 writeln('Количество сравнений равно ',u);
 writeln('Количество перестановок равно ',per);
 writeln;
 readln;
 end;
end.