Указатели!!!!!!!!!!!!!!!

[focus888]

Ребята помогите доработать программу!У мнея не получается вставлять элемент в список, скорее всего ошибка в блоке "Встака элемента"
Вот код:

uses CRT;
type element=^el;
el=record
z:real;
next:element;
end;
var head,v1,v2,v:element;
c:char;
b:boolean;
min,w,j:real;
BEGIN
clrscr;
{Ввод списка}
head:=nil;
v2:=nil;
repeat
new(v1);
write('Введите число: ');
readln(v1^.z);
if head=nil then head:=v1
else v2^.next:=v1;
v1^.next:=nil;
v2:=v1;
write('Продолжить-Enter, exit-N: ');
read(c);
until (c='N') or (c='n');

{ЏПоиск миню элемента}
repeat
v1:=head;
min:=frac(v1^.z);
b:=false;
while v1<>nil do
begin
if frac(v1^.z)<min then min:=frac(v1^.z);
v1:=v1^.next;
end;
until not b;

writeln('Min= ',min:2:3);

v1:=head;
new(v);
v^.z:=min;

{Встака элемента в список}
new(v);
v^.z:=min;
v1:=head;
while v1<>nil do
begin
if frac(v1^.next^.z)=min then
begin
v^.next:=v1^.next;
v1^.next:=v;
end;
v1:=v1^.next;
end;



{‚Вывод на экран**}
writeln('‘Список имеет вид: ');
v1:=head;
while v1<>nil do
begin
write(v1^.z:3:3,' ');
v1:=v1^.next;
end;

{Удаление динам.}
v1:=head;
while v1<>nil do
begin
v2:=v1^.next;
dispose(v1);
v1:=v2;
end;
readln;
readln;
END.

[capta1n]

if head=nil then head:=v1
else v2^.next:=v1;
v1^.next:=nil;
v2:=v1;

тут вы сначала присваиваете адрес на сделующий элемент, а потом на текущий, причем многим адресам вы присваиваете нулевой адрес NIL в процессе ввода чисел, поэтому список получается не связанным, а значения теряются

[capta1n]

надо вот так:

repeat
new(v1);
write('Num: ');
readln(v1^.z);
v1^.next:=nil;
if head=nil then
            begin
              head:=v1;
              v2:=head
            end
            else
            begin
              v2^.next:=v1;
              v2:=v2^.next
            end;
write('exit-N: ');
read(c);
until (c='N') or (c='n');