Удаление элемента из списка по индексу

[Liagushka]

Задача:
Из однонаправленного списка удалить элемент, указанного номера.
Программу написал, но у меня она игнорирует одну процедуру, а именно самую главную - выбрать номер элемента, который нужно удалить. Все процедуры работают, а 1 просто пропускает\игнорирует. Помогите найти ошибку.

program sukurti_sarasa;
uses
crt;
type
sar = ^el;
el = record
duom : integer;
kitas : sar;
end;
procedure Sukurti_sar ( var pr, pab : sar );
var g : sar;
x : integer;
begin
pr := nil;
pab := nil;
writeln('Создаём список. Введите целые числа.');
writeln('Жедая закончить, ввведите 0.');
readln ( x );
while x <> 0 do
begin
if pr = nil
then
begin
new( g );
g^.duom := x;
g^.kitas := nil;
pr := g;
pab := g;
readln( x );
end
else
begin
new( g );
g^.duom := x;
g^.kitas := nil;
pab^.kitas := g;
pab := g;
readln( x );
end
end;
writeln('Список успешно создан');
end;
Procedure DelElemPos(var pr:sar;posi:integer);
var
  i:integer;
  tmp:sar;
begin
  if posi<1 then
    exit;
  if pr=nil then
  begin
    Write('ппп');
    exit
  end;
  i:=1;
  tmp:=pr;
  while (tmp<>nil) and (i<>posi) do
  begin
    tmp:=tmp^.kitas;
    inc(i)
  end;
  if tmp=nil then
  begin
    Writeln('«¥¬¥*â* á ¯®à浪®¢ë¬ *®¬¥à®¬ ' ,posi, ' *¥â ¢ ᯨ᪥.');
    writeln('‚ ᯨ᪥ ¢á¥£® ' ,i-1, ' í«¥¬¥*â*(®¢).');
    exit
  end;
  DelElemPos ( pr, posi);
  Writeln('«¥¬¥*â ã¤*«ñ*.');
end;
procedure Spausdinti( pr : sar );
var s : sar;
begin
writeln('Выводим список:' );
s := pr;
while s <> nil do
begin
write( s^.duom, ' ');
s := s^.kitas;
end;
writeln;
end;
procedure Naikinti_sar( var pr, pab : sar );
var s : sar;
begin
writeln('Удаляем список с конца.');
while pr <> nil do
begin
s := pr;
if pab <> pr
then
begin
while s^.kitas <> pab do
s := s^.kitas;
writeln(' Удаляем ', s^.kitas^.duom);
pab := s;
dispose( s^.kitas );
end
else
begin
writeln(' Удаляем первый: ', s^.duom);
dispose( s );
pr := nil;
pab := nil;
end;
end;
end;
var pradzia, pabaiga : sar;
begin
Sukurti_sar ( pradzia, pabaiga );
Spausdinti ( pradzia );
Naikinti_sar ( pradzia, pabaiga);
readln;
end.

[Serge_Bliznykov]

перед копированием текста (и вставкой его на форум) обязательно включите русскую расскладку клавиатуры.
это с высокой долей вероятности поможет сохранить комментарии на русском языке (сейчас они у Вас потерялись... )

[AlexDark]

Ну она как бы и не используется.
Нужно вызвать эту процедуру со нужными параметрами

begin
Sukurti_sar ( pradzia, pabaiga );
Spausdinti ( pradzia );
Naikinti_sar ( pradzia, pabaiga);
 <----  DelElemPos( [sar]? , [posi]? );
readln;
end.

[Liagushka]

А какие именно нужно вставить? При вставке

pradzia
pabaiga

я получаю - Got SAR, expected SMALLINT. При вставке другого параметра - Identifier not found ***.

[AlexDark]

первый параметр либо pradzia, либо pabaiga... (шо эти слова ваще значат о_О)
второй - цифра - индекс элемента

[Liagushka]

AlexDark названия по указанию сделал такие.

P.S. Сделал так, всё равно не работает:

var pradzia, pabaiga : sar; i: integer;
begin
Sukurti_sar ( pradzia, pabaiga );
DelElemPos ( pradzia, i );
Spausdinti ( pradzia );
Naikinti_sar ( pradzia, pabaiga);
readln;
end.

[Liagushka]

Есть у кого-нибудь идеи почему программа не выполняет 1 процедуру? Возможна ли, что причина в самой процедуре?