Очереди

type
  Tinf = string;{тип данных, который будет храниться в элементе очереди}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next: List;   {указатель на следующий элемент}
  end;
 
{Процедура добавляющая элемент в очередь}
procedure AddElem(var stek1: List; znach1: TInf);
var
  tmp: List;
begin
  new(tmp); {выделяем в памяти место для нового элемента}
  tmp^.next := stek1;  {указатель на следующий элемент "направляем" на хвост очереди}
  tmp^.data := znach1; {добавляем к элементу данные}
  stek1 := tmp; {хвост очереди изменился, надо перенести и указатели на неё}
end;
 
{Процедура вывода очереди начиная с хвоста}
procedure Print(stek1: List);
begin
  if stek1 = nil then {проверка на пустоту очереди}
  begin
    writeln('Очередь пуста.');
    exit;
  end;
  while stek1 <> nil do {пока указатель stek1 не станет указывать в пустоту}
  begin{а это произойдёт как только он перейдёт по ссылке последнего элемента}
    Write(stek1^.data, ' '); {выводить данне}
    stek1 := stek1^.next{и переносить указатель в начало очереди}
  end;
end;
 
{Процедура освобождения памяти занятой очередью}
procedure FreeStek(stek1: List);
var
  tmp: List;
begin
  while stek1 <> nil do {пока stek1 не станет указывать в "пустоту" делать}
  begin
    tmp := stek1; {указатель tmp направим на хвост очереди}
    stek1 := stek1^.next; {хвост очереди перенесём на следующий за данным элементом элемент}
    Dispose(tmp);{освободим память занятую под удаляемый элемент}
  end;
end;
 
var
  Stk, {переменная, которая всегда будет указывать на "хвост" очереди}
  tmpl: List; {рабочая переменная}
  znach: Tinf; {данные вводимые пользователем}
  k: integer;
  f: text;
 
begin
  Stk := nil;
  assign(f, 'data.txt');
  reset(f);
  k := 0;
  while not eof(f) do 
  begin
    readln(f, znach); {считываем значение добавляемого нового элемент}
    if znach[1] = UpCase(znach[1]) then
    begin
      AddElem(Stk, znach);
      inc(k);
    end;
  end;
  close(f);
  Print(Stk); {вызов процедуры вывода}
  FreeStek(Stk); {освобождаем память занятую очередью}
  writeln(k);
end.