Здравствуйте, Korniychug Petro Dmytrovich!

Программа в приложении.
Коментировал только процедуру modifyList. Программа написана под ТР 7.0.
Удачи!

Приложение:
type
isType=^isList;
isList=record
data:integer;
next:isType;
end;
var
a:isType;
procedure createList(var d:isType;c:integer);
var
b:isType;
begin
while c>0 do
begin
new(b);
b^.data:=random(20);
b^.next:=d;
d:=b;
dec(c);
end;
end;
procedure outputList(b:isType);
begin
while b<>nil do
begin
write(b^.data:4);
b:=b^.next;
end;
end;
procedure modifyList(var b:IsType);
var
c:isType;
begin
c:=b;
{ищем конец списка}
while c^.next^.next<>nil do
c:=c^.next;
{закольцовываем его исключая первый элемент}
c^.next^.next:=b^.next;
{устанавливаем первый элемент перед последним}
b^.next:=c^.next;
{переключаем связи}
c^.next:=b;
{сохраняем голову списка и разрываем кольцо}
b:=b^.next;
c^.next^.next:=nil;
end;
procedure deleteList(var b:isType);
var
c:isType;
begin
repeat
c:=b;
b:=b^.next;
dispose(c);
until b=nil;
end;
begin
{создаем список}
a:=nil;
createList(a,10);
{выводим исходный список}
outputList(a);
writeln;
{изменяем список}
modifyList(a);
{выводим результат и освобождаем память}
outputList(a);
deleteList(a);
readln;
end.