Сортировка массива методом вставок Pascal

[bpystep]

Задание:
Дан файл содержащий 100 целых чисел от -1000 до 1000. Считать файл в массив. Отсортировать методом вставки. Вывести в файл.

program metod_01;
uses crt;
const n=100;
type
 matr = array[1..n] of integer;
 
procedure formir(var a:matr;k:integer);
var
 i:integer;
begin
 randomize; 
 for i:=1 to k do 
   a[i]:=Random(2001)-1000;
end;

procedure vivod(a,b:matr;k:integer);
var
 i,j:integer;
 InFile:text;
begin
assign (InFile, 'In.txt');
rewrite (InFile);
 for i:=1 to k do
  b[i]:=a[i];
 for i:=1 to k do
  begin
    write(InFile,b[i]:5);
    writeln;
  end;
 close(InFile);
end;

procedure InsertSort(a:matr);
var
  i, j, buf:integer;
begin
  for i:=2 to N do
  begin
    buf:=a[i];
    j:=i-1;
    while (j>=1) and (a[j]>buf) do
    begin
      a[j+1]:=a[j];
      j:=j-1;
    end;
    a[j+1]:=buf;
  end;
end;

procedure SortVivod(a:matr;k:integer);
var
   i,j:integer;
   OutFile:text;
begin
 assign (OutFile, 'Out.txt');
 rewrite (OutFile);
 for i:=1 to k do
  begin
    write(OutFile,a[i]:5);
    writeln;
  end;
 close(OutFile);
end;
var
 a,b:matr;
 
begin
 clrscr;
 formir(a,n);
 vivod(a,b,n);
 InsertSort(a);
 SortVivod(a,n);
end.

Правильно ли я сортирую методом вставки?
Проблема в то что в обоих файлах "Out" и "In" получаются одинаковые массивы.
Помогите доработать,заранее спасибо.

[AlexanderKs]

Попробуй изменить условие в цикле:

procedure TForm1.InsertSort(a:matr);
var
  i, j, buf:integer;
begin
  for i:=2 to N do
  begin
    buf:=a[i];
    j:=i-1;
    while (j>0) and (buf<a[j]) do //другое условие
    begin
      a[j+1]:=a[j];
      j:=j-1;
    end;
    a[j+1]:=buf;
  end;
end;

[bpystep]

Не помогает

[AlexanderKs]

Похоже вы где то напутали с передачей массивов. Введите глобальные переменные (массивы), и программа будет работать

[AlexanderKs]

Вот код работающей программы (с глобальными переменными):

program metod_01;
uses crt;
const n=100;
type matr=array[1..n] of integer;
var a,b:matr;

procedure formir(k:integer);
var
 i:integer;
begin
 randomize; 
 for i:=1 to k do 
   a[i]:=Random(2001)-1000;
end;

procedure vivod(k:integer);
var
 i,j:integer;
 InFile:text;
begin
assign (InFile, 'In.txt');
rewrite (InFile);
 for i:=1 to k do
  b[i]:=a[i];
 for i:=1 to k do
  begin
    write(InFile,b[i]:5);
    writeln;
  end;
 close(InFile);
end;

procedure InsertSort;
var
  i, j, buf:integer;
begin
  for i:=2 to N do
  begin
    buf:=a[i];
    j:=i-1;
    while (j>0) and (buf<a[j]) do
    begin
      a[j+1]:=a[j];
      j:=j-1;
    end;
      a[j+1]:=buf;
  end;
end;

procedure SortVivod(k:integer);
var
   i,j:integer;
   OutFile:text;
begin
 assign (OutFile, 'Out.txt');
 rewrite (OutFile);
 for i:=1 to k do
  begin
    write(OutFile,a[i]:5);
    writeln;
  end;
 close(OutFile);
end;
 
begin
 clrscr;
 formir(n);
 vivod(n);
 InsertSort;
 SortVivod(n);
end.

[bpystep]

Спасибо всё работает! Я только правда не понял, почему надо именно с глобальными перемыенными, почему когда я вводил их просто они программа не работала?