Создать программу включения в список без нарушения упорядоченности произвольное число — Pascal(Паскаль)

Type pt = ^z; z = Record cifr:integer; ss: pt end;
Const B:array[1..5] of integer = (1,4,6,8,9);
Var a,j:byte; q,nach,t: pt;
Begin t:= Nil;
For j:= 1 to 5 do
Begin New (q); q^.cifr:= B[j]; q^.ss:= t; t:=q; end;
nach:=t;
While t <> Nil do
Begin q:=t;
Write (t^.cifr); t:= t^.ss;
end; readln;
t:=nach;
writeln('vvedite chislo');
Read(a);
New(q);
q^.cifr:=a;
{dobavlenie v seredinu}
while t<> nil do
begin
if (t^.cifr>a) and (t^.ss^.cifr<a) then
begin
q^.ss:=t^.ss;
t^.ss:=q;
end;
t:=t^.ss;
end;
{vivod}
t:=nach;
While t <> Nil do
Begin q:=t;
Write (t^.cifr); t:= t^.ss;
end;
end.