Удалить из последовательности простые числа и продублировать числа кратные 8

type
    list=^mas;
    mas=record
      data:Integer;
      next:list;
      end;
 
procedure vvod(var head:list);
var p,p1:list;
       f:text;
begin
assign(f,'input.txt');
reset(f);
head:=nil;
while not seekeof(f) do
begin
new(p);
read(f,p^.data);
if head = nil then head:=p
                       else p1^.next:=p;
p1:=p;
end;
p^.next:=nil;
end;
 
  function prost(x:integer):Boolean;
  var i:Integer;
  begin
    prost:=True;
    for i:=2 to Round(Sqrt(x)) do
     if x mod i = 0 then
     begin
       prost:=False;
       Exit;
     end;
  end;
 
  function sumc(x:integer):Integer;
  var s:Integer;
  begin
    s:=0;
    while x>0 do  begin
      s:=s+(x mod 10);
      x:=x div 10;
    end;
    sumc:=s;
  end;
 
procedure sort(var h:list);
  var
    q, w:list;
    x:Integer;
  begin
    w:=h;
    while w^.next<>nil do begin
      q:=w^.next;
      while q<>nil do begin
        if sumc(q^.data)<sumc(w^.data) then begin
          x:=q^.data;
          q^.data:=w^.data;
          w^.data:=x;
        end;
        q:=q^.next;
      end;
      w:=w^.next;
    end;
  end;
 
 procedure sort1(var head:list);
var w,q:list;
x:integer;
begin
 w:=head;
 while w^.next<>nil do begin
 q:=w^.next;
  while q<>nil do begin
   if w^.data<q^.data then begin
    x:=w^.data;
    w^.data:=q^.data;
    q^.data:=x;
   end;
  q:=q^.next;
  end;
 w:=w^.next;
 end;
end;
 
procedure sort2(var h:list);
  var
    q, w:list;
    x:Integer;
  begin
    w:=h;
    while w^.next<>nil do begin
      q:=w^.next;
      while q<>nil do begin
        if w^.data>q^.data then begin
          x:=w^.data;
          w^.data:=q^.data;
          q^.data:=x;
        end;
        q:=q^.next;
      end;
      w:=w^.next;
    end;
  end;
  
 procedure Del(var h:list);
  var c, p, ls:list;
  begin
    c:=h;
    ls:=h;
    while c<>nil do
    begin
      if prost(c^.data) then
      begin
       if c=h then h:=h^.next else
       ls^.next:=c^.next;
       p:=c;
       c:=c^.next;
       Dispose(p);
       Continue;
      end;
      ls:=c;
      c:=c^.next;
    end;
  end; 
 
procedure dubl(var head:list);
 var p,p1:list;
 begin
 p:=head;
 while p<>nil do begin
 if (p^.data mod 8 = 0) then begin
 new(p1);
 p1^.data:=p^.data;
 p1^.next:=p^.next;
 p^.next:=p1;
 p:=p1^.next;
 end
 else p:=p^.next;
 end;
 end;
 
 procedure out(h:list);
var p:list;
g:text;
begin
assign(g,'output.txt');
rewrite(g);
p:=h;
while p<>nil do begin
write(g,p^.data,'  ');
p:=p^.next;
end;
close(g);
end;
 
  var   head, p, p1, ub, vozr:list;
begin
head:=nil; 
vvod(head); ub:=head; vozr:=head;
sort1(ub);
sort2(vozr);
if ((ub=head) or (vozr=head)) then 
sort(head)
else begin del(head); dubl(head); end;
out(head);
p:=head;
while p<>nil do
begin
p1:=p^.next;
Dispose(p);
p:=p1;
end;
end.