Процедура GetMem для PascalABC.NET

Program Spisok;
Uses
  crt;
type
  Tinf=char;    {тип данных, который будет хранится в элементе списка}
  List=^TList;  {указатель на элемкент типа TList}
  TList=record  {Наименовние нашего типа "запись"}
    data:Tinf;  {данные,хранимые в элементе}
    next:List;  {указатель на следукющий элемент списка}
  end;
  
{Процедура добавления нового элемента в односвязный список}
procedure AddElem(var spis1:List;znach1:TInf);
var
  tmp:List;
begin
  if spis1=nil then {Проверяем не пуст ли список,если пуст, то}
  begin
    getmem(spis1,sizeof(TList));  {создаём его первый элемент}
    tmp:=spis1;
  end
  else              {в случае если список не пуст}
  begin
    tmp:=spis1;
    while tmp^.next<>nil do
      tmp:=tmp^.next;   {ставим tmp на последний элемент списка}
    GetMem(tmp^.next,sizeof(TList));  {создаём следующий элемент}
    tmp:=tmp^.next;     {переносим tmp на следующий элемент}
  end;
  tmp^.next:=nil;     {зануляем указатель}
  tmp^.data:=znach1;  {заносим значение}
end;
 
{Процедура вывода списка на экран}
procedure Print(spis1:List);
begin
  if spis1=nil then
  begin
    writeln('Список пуст.');
    exit;
  end;
  while spis1<>nil do
  begin
    Write(spis1^.data, ' ');
    spis1:=spis1^.next
  end;
end;
 
{Процедура поиска в списке}
Function SearchElemZnach(spis1:List;Znach1:Tinf):List;
begin
  if spis1<>nil then
    While (Spis1<>nil) and (znach1<>spis1^.data) do
      spis1:=spis1^.next;
    SearchElemZnach:=spis1;
end;
 
{Процедура удаления элемента}
Procedure DelElem(Var spis1:List;tmp:List);
var
  tmpi:List;
begin
  if (spis1=nil)or (tmp=nil) then
    exit;
  if tmp=spis1 then
  begin
    spis1:=tmp^.next;
    FreeMem(tmp,SizeOf(TList));
  end
  else
  begin
    tmpi:=spis1;
    while tmpi^.next<>tmp do
      tmpi:=tmpi^.next;
    tmpi^.next:=tmp^.next;
    FreeMem(tmp,sizeof(TList));
  end;
end;
 
{Процедура удаления элемента по значению}
Procedure DelElementZnach(var Spis1:List;znach1:TInf);
var
  tmp:List;
begin
  if Spis1=nil then
  begin
    Writeln('Список пуст');
    exit;
  end;
  tmp:=SearchElemZnach(spis1,znach1);
  if tmp=nil then
  begin
    writeln('Элемент с искомым значением ',znach1, 'отсутсвует в списке.');
    exit;
  end;
  DelElem(spis1,tmp);
  Writeln('элемент удалён.');
end;
 
 
Var
  A:array of char;
  s:string;
  n:char;
  L:List;
  i:integer;
  
  
Begin
  L:=nil;
  Writeln('Программа запросит ввод строки, после чего преобразует строку в динамический список,а затем удалит все повторяющиеся элементы.');
  Write('Введите строку: ');Read(s);
  For i:=1 to length(s) do    {преобразуем строку в динамический односвязный список}
  begin
    n:=s[i]; AddElem(L,n);
  end;
  Print(T); {Вывод необработанного списка на экран}
  
end.