#include<iostream>
using namespace std;

struct tpac {
       int mb;
       char ime[20];
       int godine;
} pacijent;

struct list {
  int mb[100];
  char ime[100][20];
  int godine[100];
  int pozicija;
};

typedef int elem;

list* Init(list* L) {
      L = new list;
      L->pozicija = 0;
      return L;
}
elem End(list* L) {
        return L->pozicija;
}
elem First(list* L) {
       if(L->pozicija==0)
            return End(L);
       else
            return 0;
}
elem Next(elem p, list* L) {
        if (p==End(L))
              return 0;
        else
              return p=p+1;
}
elem Previous(elem p, list* L) {
        if (p==First(L))
               return 0;
        else
               return p=p-1;
}
int Insert(tpac neki, int p, list* L) {
        if (p>L->pozicija)
           return 0;
        else {
             L->pozicija++;
             for (int i=L->pozicija-1; i>=p; i--) {
                 L->mb[i+1] = L->mb[i];
                 strcpy(L->ime[i+1], L->ime[i]);
                 L->godine[i+1] = L->godine[i];
             }
             L->mb[p] = neki.mb;
             strcpy(L->ime[p],neki.ime);
             L->godine[p] = neki.godine;
             return 1;
             }
}
elem Locate(tpac neki, list* L){
        for (int i=0;i < L->pozicija;i++) {
            if (L->mb[i] == neki.mb)
               return i;
               }
        return End(L);
}
tpac Retreive(elem p, list* L){
         pacijent.mb = L->mb[p];
         strcpy(pacijent.ime,L->ime[p]);
         pacijent.godine = L->godine[p];
         return pacijent;
}
int Delete(elem p, list* L) {
        for (int i=p; i< L->pozicija-1;i++) {
            L->mb[i] = L->mb[i+1];
            strcpy(L->ime[i], L->ime[i+1]);
            L->godine[i] = L->godine[i+1];
            }
        L->pozicija--;
        return 1;
}
void DeleteAll(list* L) {
     L->pozicija = 0;
}