insert sort?

is dasn insert sort? (pascal; zahlen ist ein array von 1 bis 20)

procedure sortierinsert(var zahlen:tzahlen);
var i,j,index:integer;
begin
index:=0;
for i:=1 to 20 do
begin
index:=zahlen[i];
j:=i;
while ((j>1) and (zahlen[j-1]>index)) do
begin
zahlen[j]:=zahlen[j-1];
j:=j-1;
end;
zahlen[j]:=index;
end;

herzlichen dank