очень надо1!!1 (задание 8 класс)

//pascal abc.net 3.1 сборка 1256 type ukreco=^reco; reco=record   int: integer;   next: ukreco; end; const   n=4; var   head,li,kar,karsub,sub: ukreco;   i,k: integer; begin randomize; readln(k); k: =k-1; new(head); li: =head; li^.int: =random(10); for i: =2 to n do   begin   new(li^.next);   li: =li^.next;   li^.int: =random(10);   end; li^.next: =nil; writeln('original list: '); kar: =head; while kar< > nil do   begin     writeln(kar^.int);     kar: =kar^.next;   end; kar: =head; i: =0; if k=0 then head: =head^.next else while kar< > nil do   begin   inc(i);   if i=k then   begin     karsub: =kar^.next;     karsub: =karsub^.next;     kar^.next: =karsub;     break;   end;   kar: =kar^.next;   end; writeln('modified list: '); kar: =head; while kar< > nil do   begin   writeln(kar^.int);   kar: =kar^.next;   end; end. пример ввода: 2 пример вывода: original list: 4 1 0 9 modified list: 4 0 9