Ошибка в процедуре

[Yalovick]

Дан двумерный массив,содержащий 4 строки и 5 столбцов. Элементами массива являются целые числа.Упорядочить массив по возрастанию элементов 2-го столбца методом вставки. Вот приблизительный вариант:

Var a:array[1..50,1..50] of integer; 
i,j,f,e,g:integer; 
Procedure generaciya; 
 Begin 
 Randomize; 
 writeln('Massiv do sortirovki'); 
 for i:=1 to 5 do {i строка} 
 begin 
 for j:=1 to 4 do {j столбец} 
 begin 
 a[i,j]:=random(10); 
 write(a[i,j]:3); 
 end; 
 writeln; 
 end;end; 
Procedure sortirovka; 
 begin 
 for i:=2 to 5 do 
 begin 
 e:=a[i,2]; 
 j:=2; 
 while e>a[i,j] do 
 inc(j); 
 for g:=i-1 downto j do 
 a[i,g+1]:=a[i,g]; 
 a[i,j]:=e; 
 end; 
 end; 
Procedure vuvod; 
 begin 
 writeln('Massiv posle sortirovki'); 
 for i:=1 to 5 do 
 begin 
 for j:=1 to 4 do 
 begin 
 write(a[i,j]:3); 
 end; 
 writeln; 
 end; 
 readln; 
 end; 
begin 
generaciya; 
sortirovka; 
vuvod; 
end.

1 и последняя процедуры рабочие, а над сортировкой мучаюсь. Подскажите недочеты, что и как надо исправить. Заранее спасибо

[Alex11223]

Почему тут 2?

for i:=2 to 5 do

И называйте переменные как-то более понятно, дальше не осилил.