Pascal Исключить пятый элемент из списка который состоит из 10 элементов

[Настенушка]

Помогите плиз.
Исключить пятый элемент из списка который состоит из 10 элементов

[andrewpalkin]

Сообщение от Настенушка

Помогите плиз.
Исключить пятый элемент из списка который состоит из 10 элементов

А где твой код , что именно не работает ?

[Hacker19_90]

Сообщение от Настенушка

Помогите плиз.
Исключить пятый элемент из списка который состоит из 10 элементов

Ну тыкни на него мышкой и нажми Shift+Delete

[Настенушка]

Вот код, ошибка в конце Dispose

uses crt;
Type intp=^intrec;
intrec=record
i:integer;
p:intp;
end;
Var ip,ir,insi,ins4,ins5,wrtp:intp;
k,n,l,m:integer;
Begin    clrscr;
ir:=NIL; n:=10;
For k:=1 to n do
Begin
readln(l);
new(ip);
ip^.i:=l;
if k=5 then k:=k+1  end;
For k:=1 to n+1 do
Begin
wrtp:=ip   ;
m:=wrtp^.i;
writeln(m);
Dispose(wrtp);  <==
end;  readln;
end.

Да и вообще код видимо неправильно.