Ошибки в проге

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type DList=^TList;
     TList=record
     Val:integer;
     next,prew:Dlist;
     end;
     procedure insert(var L:Dlist;v:integer);
     var p:Dlist;
     begin
       if l=nil then begin
       New(l);
       l^.val:=v;
       l^.next:=nil;
       l^.prew:=nil;
       end
       else
       begin
       new(p);
       p^.val:=v;
       p^.next:=l^.next;
       p^.prew:=l;
       l^.next:=p;
       if p^.next^<> nil then
       p^.next^prew:=p;
       end;
       end;
       procedure DeleteList(var l:Dlist);
       begin
       if l^.next<>nil then DeleteList(l^.Next);
       Dispose(l);
       end;
       var i,j,n,,v:integer;
           l,p,p1,p2,e,t:Dlist;
begin
  writeln('ввдіть к-сь елементів');
  readln(n);
  l:=nil;
  p:=nil;
  p1:=  ;
  p2:= ;
  e:=;
  t:=:
  for i:=1 to n do
    begin
    readln(j);
    insert(e,j);
    if l=nil thenL;=e else e:=e^.Next;
    end;
    writeln('Введіть шуканий елемент');
    readln(v);
    p1:=l;
    while p1<>nil do
     begin
     if p1^.val=v then p2:=p1;
     p1:=p1.Next;
     if p3=nil then p3:=p2;
     while p2<>p3 do
       begin
       j:=p2^.val;
       p2^.val:=p3;
       p3^.val:;
       p3:=p3^.next;
       if p3=p2 then break;
       p2:=p2^.prew;
       end;
       T:=l; J:=0;
       while t<>nil do  
         begin
           write('T^.val'); j:=j+1;
           t:=t^.next;
           if j mod 5   then writeln;
           end;
 
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
 pt = ^elem;
 elem =
  record
   data: integer;
   next: pt;
  end;
var
 t,Head,Tail,FindHead,FindTail,HeadTmp: pt;
 FindData:integer;
 
procedure InputData(var t,Head:pt);
var
  i,n:integer;
begin
 repeat
   Writeln('VVedute kolu4ectvo elementov ( kol-vo>2 )');
   try
     readln(n);
   except
     Writeln('Vvodite 4isla');
     n:=0;
   end;
 until n>2;
 New(t);
 t^.next:=nil;
 Write('VVedute element 1 ');
 readln(t^.data);
 Head:=t;
 for i:=2 to n do
 begin
  New(t^.next);
  t:=t^.next;
  t^.next:=nil;
  Write('VVedute element ',i, ' ');
  readln(t^.data)
 end;
end;
 
procedure OutputData(Head:pt);
begin
 t:=Head;
 while t <> nil do
 begin
  write(t^.data,' ');
  t:=t^.next;
 end;
end;
 
Procedure povorot(var p:pt;findTail:pt);
begin
  if p^.next<>FindTail then
  begin
    povorot(p^.next,FindTail);
    if (p<>FindTail) and (p<>FindHead) then
      p^.next^.next:=p;
  end;
end;
 
Procedure Search(var t,find:pt; FindData:integer);
begin
  find:=nil;
  repeat
   if t^.data=FindData then
     Find:=t;
   t:=t^.next;
 until (t=nil) or (find<>nil);
end;
 
Procedure DelList(Head:Pt);
begin
  if Head^.next<>nil then DelList(Head^.next);
  dispose(Head);
end;
 
begin
 Randomize;
 InputData(t,Head);
 OutputData(Head);
 writeln;
 Writeln('VVedute uckoMblu element');
 readln(FindData);
 t:=Head;
 Search(t,FindHead,FindData);
 if FindHead=nil then
 begin
   Writeln('Element otcytcyvyet v spiske, programma 3akan4ivaet paboty');
   readln;
   halt(1);
 end;
 FindTail:=nil;
 t:=FindHead^.next;
 repeat
   if t^.data=FindData then
     FindTail:=t;
   t:=t^.next;
 until (t=nil);
 if FindTail=nil then
 begin
   Writeln('Vtopou Element otcytcyvyet v spiske, programma 3akan4ivaet paboty');
   readln;
   halt(1);
 end;
 if FindHead^.next=FindTail then
 begin
   Writeln('Mejdy naudennblmu elementamu net drygux elemetnov, programma 3akan4ivaet paboty');
   readln;
   halt(1);
 end;
 Tail:=FindHead^.next;
 t:=FindHead^.next;
 HeadTmp:=nil;
 repeat
   if t^.next=FindTail then
     HeadTmp:=t;
   t:=t^.next;
 until (t=FindTail) or (HeadTmp<>nil);
 povorot(FindHead,FindTail);
 Tail^.next:=FindTail;
 FindHead^.next:=HeadTmp;
 writeln;
 OutputData(Head);
 readln;
 DelList(Head);
end.