Блок-схема (дин.списки)

Program Zadacha_7__Ctronica__170;
uses crt;
type ssilka=^L;
     L = record
     c:char;
     n:ssilka;
     end;
 
 
Procedure ViVod(Var curr:ssilka; golova:ssilka);
Begin
TextColor(5);
Writeln('||||---|-- Vivod spiska --|---||||');
Textcolor(7);
curr:=golova;
While curr <> nil do begin
    Writeln(curr^.c);
    curr:=curr^.n;
end;
end;
 
 
Var
nach,pr,tek,sn,nach1,pr2,pre,deltek,zamena:ssilka;
X,xx,xxx:char;
perv:boolean;
Begin
TextColor(7);
     clrscr;
     Writeln('Na kakom simvole ostanovit vvod ?');
     Readln(xx);
     Writeln ('Vvedite simvoli: ');
     Readln(x);
     nach1^.c:=x;
     New(nach);
     nach^.c:=x;
     nach^.n:=nil;
     pr:=nach;
 
     Repeat
       readln(x);
       New(tek);
       tek^.c:=x;
       tek^.n:=nil;
       pr^.n:=tek;
       pr:=tek;
     until x=xx;
 
     ViVod  (tek, nach);
 
     tek:=nach;
     perv:=true;
     while tek <> nil do
     begin
       if perv then
       begin
         if tek^.c = nach1^.c then
         begin
           perv:=false;
           tek:=tek^.n;
         end;
       end;
       if pred(tek^.c) = nach1^.c then
       begin
         if tek^.n = nil then
     begin
       TextColor(3);
       Writeln ('Simvoli pocledovatelniye!');
       TextColor(7);
     end;
     nach1^.c:=tek^.c;
     tek:=tek^.n;
       end
       else
       begin
     TextColor(3);
     Writeln ('Simvoli ne pocledovatelniye!');
     TextColor(7);
     tek := nil;
       end;
     end;
 
     if nach=nil then
     begin
       Textcolor(4);
       Writeln('Spisok PUST !!!');
       Textcolor(7);
     end;
     Textcolor(6);
     writeln('Kakoi element udalit? ');
     TextColor(7);
     readln(xxx);
     tek:=nach;
     pr:=tek;
     while tek<>nil  do
     begin
     if tek^.c = xxx then
       begin
    if tek = nach then begin
    nach := nach^.n;
    dispose(tek);
    tek := nach;
    end
    else begin
    pr^.n:=tek^.n;
    dispose( tek );
    tek := pr^.n;
    end;
    end
       else begin
    pr:=tek;
    tek:=tek^.n;
       end;
     end;
 
ViVod  (tek, nach);
 
TextColor(7);
Readln;
end.