Списочные структуры

uses crt;
type
  uk=^zveno;
  zveno=record
  x:integer;
  next:uk;
end;
var per,tek,pred,nov:uk;
    i,y:integer;
begin
{----Формирование списка----}
  per:=nil;
  for i:=1 to 10 do
  begin
    new(tek);
    tek^.x:=random(100);
    tek^.next:=per;
    per:=tek;
  end;
{----Вывод----}
  writeln('Список:');
  tek:=per;
  while tek<>nil do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
{----Добавление нового элемента в начало списка----}  
  write('Введите новый элемент = ');
  new(tek);
  readln(tek^.x);
  tek^.next:=per;
  per:=tek;
{----Вывод----}
  writeln('Список:');
  tek:=per;
  while tek<>nil do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
{----Удаляем элемент в начале списка----}    
  tek:=per;
  per:=per^.next;
  write('Введите элемент = ');
  readln(tek^.x);
  dispose(tek);
  writeln;
{----Вывод----}
  writeln('Список:');
  tek:=per;
  while tek<>nil do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
{----Добавление нового элемента после второго----}  
  write('Введите новый элемент = ');
  new(tek);
  readln(tek^.x);
  tek^.next:=per^.next;
  per^.next:=tek;
{----Вывод----}
  writeln('Список:');
  tek:=per;
  while tek<>nil do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
{---------------}
  tek:=per;
  while tek^.next^.x <> 5 do tek:=tek^.next;
    pred:=tek^.next;
    tek^.next:=pred^.next;
  dispose(pred);
{----Вывод----}
  writeln('Список:');
  tek:=per;
  while tek<>nil do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
{---------------}
  tek:=per;
  new(nov);
  write('Введите элемент до которого вывод = ');
  readln(pred^.x);
  writeln('Элемент перед предыдущим');
  while tek^.x <> pred^.x do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
  pred:=tek^.next;
  writeln('Предыдущий элемент');
  writeln(pred^.x:4);
  nov^.x:=7;
  nov^.next:=pred^.next;
  pred^.next:=nov;
{----Вывод----}
  writeln('Список:');
  tek:=per;
  while tek<>nil do
  begin
    write(tek^.x:4);
    tek:=tek^.next;
  end;
  writeln;
  readln;
end.

  while tek^.next^.x <> 5 do tek:=tek^.next;