Здравствуйте, Сапожников Константин Юрьевич!

Программа в приложении.

С уважением, Дмитрий

Приложение:
program dinamik_list;
uses crt;
type TPElement=^TElement; { Указатель на элемент списка }
TElement=record
i: integer; { Элемент списка }
pred: TPElement; { Предыдущий элемент }
sled: TPElement; { Следующий элемент }
del: boolean; { Пометка удаления }
end;
var PSpisok: TPElement; { Указатель на список }
fin: text; { Входной файл }

{ Процедура вывода списка на экран }
procedure PrintList(List: TPElement);
var TekElm: TPElement;
begin
TekElm:=List;
if TekElm=nil then
writeln('Список пуст')
else begin
repeat
write(TekElm^.i,' -> ');
TekElm:=TekElm^.sled;
until TekElm=List;
writeln('Начало списка');
end;
end;

{ Добавление элемента в список - возвращает ссылку на новый элемент }
function AddToList(var List: TPElement): TPElement;
var tmp: TPElement;
begin
new(tmp);
{ Если список пустой то создаем первый элемент со ссылками на самого себя }
if List=nil then begin
tmp^.sled:=tmp;
tmp^.pred:=tmp;
List:=tmp; { Запомним новое начало списка }
end else begin { Иначе добавляем }
new(tmp);
{ Для нового элемента следующим будет первый }
tmp^.sled:=List;
{ ... а предыдщим будет тот что был предыдушим для первого }
tmp^.pred:=List^.pred;
{ Для предыдущего следующим станет новый элемент }
List^.pred^.sled:=tmp;
{ Для первого предыдущим также станет новый элемент }
List^.pred:=tmp;
end;
tmp^.del:=false;
AddToList:=tmp;
end;

{ Удаление элемента из списка - возвращает ссылку на след.элемент или nil }
function DelFromList(Item: TPElement): TPElement;
begin
if Item^.sled=Item then begin { Остался один элемент }
DelFromList:=nil;
end else begin
{ Предыдущим элементом для следующего станет предыдущий для удаляемого }
Item^.sled^.pred:=Item^.pred;
{ а следующим элементом для предыдщего станет следующий для удаляемого }
Item^.pred^.sled:=Item^.sled;
DelFromList:=Item^.sled;
end;
dispose(Item);
end;

{ Обработка списка по заданию - удаление одинаковых соседей }
procedure Obrabotka(var List: TPElement);
var TekElm: TPElement;
begin
{ Сначала поставим пометки на удаление }
TekElm:=List;
repeat
if TekElm^.sled^.i=TekElm^.pred^.i then
TekElm^.del:=true; { При выполнении условия - пометим на удаление }
TekElm:=TekElm^.sled;
until TekElm=List;
{ А теперь удалим помеченные элементы }
TekElm:=List;
repeat
TekElm:=TekElm^.sled;
if TekElm^.del then
{ Если удаляем начало списка - то надо запомнить новое начало }
if TekElm=List then begin
TekElm:=DelFromList(TekElm);
List:=TekElm;
end else
TekElm:=DelFromList(TekElm);
until TekElm=List;
end;

begin
clrscr;
{ Открываем файл }
assign(fin,'chisla.txt');
{$I-}
reset(fin);
if IOResult<>0 then begin
writeln('Не могу открыть входной файл');
halt;
end;
{$I+}
{ Читаем и создаем список }
PSpisok:=nil;
while not(eof(fin)) do
readln(fin,AddToList(PSpisok)^.i);
{ Выводим исходный список на экран }
write('Исходный список: ');
PrintList(PSpisok);
{ Обрабатываем список в соответствии с условиями }
Obrabotka(PSpisok);
{ Выводим получившийся список на экран }
writeln;
write('Результат обработки: ');
PrintList(PSpisok);
readln;
end.