функция для создания списка структур

type prepod=record
   name:string;
   surn:string;
   midn:string;
   predmet:string;
   robgod:integer;
  end;
 
  ptr=^Item;
  Item=record
   data:prepod;
   next:ptr;
  end;
var ans:char;head,curr:ptr;

procedure AddElem(var nach:ptr;znach1:prepod);
var tmp,tmp1:ptr;
begin
  if nach=nil then
  begin
    Getmem(nach,SizeOf(prepod));
    nach^.next:=nach;
    tmp:=nach;
  end
  else
  begin
    tmp:=nach;
    while tmp^.next<>nach do
      tmp:=tmp^.next;
    GetMem(tmp1,SizeOf(prepod));
    tmp1^.next:=nach;
    tmp^.next:=tmp1;
    tmp:=tmp1;
  end;
  tmp^.data:=znach1;
end;

program Project1;
 
type
  TPrepod = record
    Name : string;
    Surn : string;
    Midn : string;
    Predmet : string;
    Robgod : integer;
  end;
 
  TPItem = ^TItem;
  TItem = record
   Data : TPrepod;
   Next : TPItem;
  end;
 
(*Добавление элемента в конец однонаправленного списка.*)
procedure AddItem(var aPList, aPItem : TPItem);
var
  PNext : TPItem;
begin
  if aPList = nil then begin
    aPList := aPItem;
  end else begin
    PNext := aPList;
    while PNext^.Next <> nil do
      PNext := PNext^.Next
    ;
    PNext^.Next := aPItem
  end;
end;
 
(*Удаление всех элементов списка из памяти.*)
procedure DelList(var aPList : TPItem);
var
  PNext, PDel : TPItem;
begin
  PNext := aPList;
  while PNext <> nil do begin
    PDel := PNext;
    PNext := PNext^.Next;
    Dispose(PDel);
  end;
  aPList := nil;
end;
 
(*Получить указатель на aI-й элемент списка. Элементы нумеруются от единицы.*)
function GetItem(const aPList : TPItem; const aI : Integer) : TPItem;
var
  PItem, PNext : TPItem;
  I : Integer;
begin
  I := 0;
  PItem := nil;
  PNext := aPList;
  while ( PNext <> nil ) and ( I <= aI ) do begin
    Inc(I);
    PItem := PNext;
    PNext := PNext^.Next;
  end;
  GetItem := PItem;
end;
 
var
  PList, PItem : TPItem;
begin
  (*Создаём однонаправленный список из трёх элементов.*)
 
  PList := nil;
 
  (*Выделяем память для элемента.*)
  New(PItem);
  (*Присваиваем значения.*)
  with PItem^ do begin
    Data.name := '1';
    Data.surn := '1';
    Data.midn := '1';
    Data.predmet := '1';
    Data.robgod := 1;
    Next := nil;
  end;
  (*Добавляем элемент в конец однонаправленного списка.*)
  AddItem(PList, PItem);
 
  (*Выделяем память для элемента.*)
  New(PItem);
  (*Присваиваем значения.*)
  with PItem^ do begin
    Data.name := '2';
    Data.surn := '2';
    Data.midn := '2';
    Data.predmet := '2';
    Data.robgod := 2;
    Next := nil;
  end;
  (*Добавляем элемент в конец однонаправленного списка.*)
  AddItem(PList, PItem);
 
  (*Выделяем память для элемента.*)
  New(PItem);
  (*Присваиваем значения.*)
  with PItem^ do begin
    Data.name := '3';
    Data.surn := '3';
    Data.midn := '3';
    Data.predmet := '3';
    Data.robgod := 3;
    Next := nil;
  end;
  (*Добавляем элемент в конец однонаправленного списка.*)
  AddItem(PList, PItem);
 
  (*Работа со списком.*)
  (*...*)
 
  (*Распечатать данные третьего элемента списка.*)
  PItem := GetItem(PList, 3);
  if PItem = nil then begin
    Writeln('В списке нет элемента с номером 3.');
  end else begin
    Writeln('Элемент №3:');
    Writeln('Name = ', PItem^.Data.name);
  end;
 
  (*...*)
 
  (*Удаляем все элементы списка из памяти.*)
  DelList(PList);
 
  Readln;
end.