Динамический однонаправленный список. Удаление элементов из списка. - Delphi - Ответ 2833349

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
Link = ^Number;
Number = record
 ID: integer;
 Cislo : string;
 NextRec: Link;
end;
var i, c, j: integer;
    a: string;
    Last, First, Curr, spisok, tmp : Link;
 
procedure Add(var spis1:Link ;znach1: string);
var
  tmp:Link;
begin
  if spis1=nil then {Проверяем не пуст ли список, если пуст, то }
  begin
    GetMem(spis1,sizeof(number));  {создаём его первый элемент}
    tmp:=spis1;
  end
  else {в случае если список не пуст}
  begin
    tmp:=spis1;
    while tmp^.nextrec<>nil do
      tmp:=tmp^.nextrec; {ставим tmp на последний элемент списка}
    GetMem(tmp^.nextrec,sizeof(number)); {создаём следующий элемент}
    tmp:=tmp^.nextrec;   {переносим tmp на новый элемент}
  end;
  tmp^.nextrec:=nil; {зануляем указатель}
  tmp^.cislo:=znach1; {заносим значение}
end;
 
procedure del(var first:link);
var kur: link;
begin
 kur:=first;
 first:=first^.nextrec;
 dispose(kur);
end;
 
procedure ShowList(first: link);
begin
 Writeln('Spisok elementov:');
 if first=nil then writeln('V spiske net elementov')
 else
  begin
   while first<>nil do
    begin
     writeln(first^.cislo);
     first:=first^.nextrec;
    end;
 end;
end;
 
begin
 Write('Ukazhite dlinu spiska: ');
 Readln(c);
 first:=nil;
 Writeln('Vvedite imena lyudey:');
 for i := 1 to c do
 begin
  readln(a);
  add(first,a);
 end;
 Writeln('Ukazhite # cheloveka dlya udaleniya: ');
 readln(j);
 Curr := First;
 for i := 1 to j - 2 do Curr := Curr^.NextRec;
  if (j > c) or (j<=0) then
   writeln('Нету такого №.')
  else
   if j = 1 then
    First := First^.NextRec
   else
    if j =c then
     begin
      Curr^.NextRec := Nil;
      Last := Curr^.NextRec;
     end
    else
     Curr^.NextRec := Curr^.NextRec^.NextRec;
  ShowList(first);
readln;
end.