#include <iostream>
#include <windows.h>

using namespace std;

struct QueueItem
{
  int Data;
  QueueItem* prevItem;
  QueueItem* nextItem;
};

QueueItem* _Item;

void SimpleQueue(int Data)
{
  _Item = new QueueItem();
  _Item->Data = Data;
  _Item->nextItem = NULL;
  _Item->prevItem = NULL;
};

void DelSimpleQueue()
{
  QueueItem* currentItem = _Item;   
  QueueItem* deleteItem;
  do
  {
    if (currentItem != NULL)
    {
      deleteItem = currentItem;
      currentItem = currentItem->nextItem;
      delete deleteItem;
    }
  } while (currentItem != NULL);
}

int Length()
{
  int length = 0;
  QueueItem* lastItem = _Item;
  do
  {
    if (lastItem != NULL)
    {
      lastItem = lastItem->nextItem;
      length++;
    }
  } while (lastItem != NULL);
  return length;
}

void RemoveItem(int index)
{
  QueueItem* deleteItem = _Item;
  if ((index > -1) && (_Item != NULL))
  {
    for (int i = 0; (i < index) && (deleteItem->nextItem != NULL); i++)
      deleteItem = deleteItem->nextItem;
    QueueItem* prevItem = deleteItem->prevItem;
    QueueItem* nextItem = deleteItem->nextItem;
    if (prevItem != NULL)
    {
      prevItem->nextItem = nextItem;
      if (nextItem != NULL)
        nextItem->prevItem = prevItem;     
    }
    else
    {
      _Item = nextItem;
      if (_Item != NULL)
        _Item->prevItem = NULL;
    }
    delete deleteItem;
  }
};

void RemoveItem()
{
  return RemoveItem(0);
};

void AddItem(int index, int Data)
{
  QueueItem* lastItem = _Item;
  if (lastItem != NULL)
  {
    if (index > -1)
    {
      for (int i = 0; (i < index) && (lastItem->nextItem != NULL); i++)
        lastItem = lastItem->nextItem;
      QueueItem* newItem = new QueueItem();
      newItem->Data = Data;
      newItem->prevItem = lastItem;
      newItem->nextItem = lastItem->nextItem;
      lastItem->nextItem = newItem;
    }
  }
  else
  {
    _Item = new QueueItem();
    _Item->Data = Data;
    _Item->nextItem = NULL;
    _Item->prevItem = NULL;
  }
}

void AddItem(int Data)
{
  AddItem(Length(), Data);
}

void ShiftItem(int currentIndex, int futureIndex)
{
  if (_Item != NULL)
  {
    QueueItem* item1 = _Item;
    if (currentIndex > -1)
    {
      for (int i = 0; (i < currentIndex) && (item1->nextItem != NULL); i++)
        item1 = item1->nextItem;
    }
    QueueItem* item2 = _Item;
    if (futureIndex > -1)
    {
      for (int i = 0; (i < futureIndex) && (item2->nextItem != NULL); i++)
        item2 = item2->nextItem;
    }
    //Здесь нужно уточнить, переставить элементы можно поменяв указатели, а можно просто данные
    if ((item2 != NULL) && (item1 != NULL))
    {
      int data = item2->Data;
      item2->Data = item1->Data;
      item1->Data = data;
    }
  }
}

int GetItemData(int index)
{
  QueueItem* lastItem = _Item;
  if (index > -1)
  {
    for (int i = 0; (i < index) && (lastItem->nextItem != NULL); i++)
      lastItem = lastItem->nextItem;
  }
  if (lastItem != NULL)
    return lastItem->Data;
  else
    return NULL;
}

int GetItemData()
{
  return GetItemData(0);
}

int main()
{
 int len;
 SimpleQueue(11);

 AddItem(22);
 AddItem(1, 33);
 ShiftItem(0, 2);
 cout << GetItemData() << endl;
 cout << GetItemData(2) << endl;
 cout << Length() << endl;
 RemoveItem();
 cout << Length() << endl;
 cin >> len;

 DelSimpleQueue();
 return 0;
}

program Zamenapodstroki;
uses crt;
var st1,subst1,subst2:string;
aux:byte;
i,j:integer;

begin
clrscr;
textcolor(green);
write('Enter st1 : ');
readln(st1);
write('Enter subst1 : ');
readln(subst1);
write('Enter subst2 : ');
readln(subst2);
aux := pos(subst1,st1);
delete(st1,aux,length(subst1));
insert(subst2,st1,aux);
writeln('Final : ',st1);

while Not keypressed do;
end.