Разработать алгоритм и программу решения задачи, в которой сформировать кольцевой односвязный список.

Program xa;
uses
  crt;
type
  TList = ^List;
  List = record
     data : integer;
     Next: TList;
  end;
var
  l,LBegin,LEnd:Tlist;
  n:integer;
  ch:char;
 
Procedure AddElem(var l:Tlist);
var
  tmp:Tlist;
begin
  Writeln('Vvedite zna4enie elemeHta cnicka');
  readln(n);
  if l=nil then
  begin
    new(l);
    l^.next:=nil;
    LBegin:=l;
    LEnd:=l;
    l^.data:=n
  end
  else
  begin
    new(tmp);
    l^.next:=tmp;
    l:=tmp;
    l^.next:=lBegin;
    l^.data:=n;
    LEnd:=tmp;
  end;
end;
 
Procedure DelList(var l:Tlist);
var
  tmp:Tlist;
begin
  while l<>LEnd do
  begin
    tmp:=l^.next;
    dispose(l);
    l:=tmp
  end;
  dispose(l)
end;
 
Procedure ViewList(l:Tlist);
begin
  if l=nil then
    Writeln('Cnisok nyst')
  else
  begin
    while l<>LEnd do
    begin
      Write(l^.data, ' ');
      l:=l^.next
    end;
    Write(L^.data, ' ');
  end;
  readkey
end;
 
begin
  l:=nil;
  repeat
    clrscr;
    writeln('Press:');
    writeln('D - dobavit element');
    Writeln('F - vivod nocledoBateLbnocti');
    Writeln('Vse Dpygie simvoLbl - BblXOD');
    Writeln;
    ch:=readkey;
    Case ch of
    'd','D':begin
              AddElem(l);
            end;
    'f','F':begin
              ViewList(LBegin);
            end;
    else
      ch:=#27;
    end;
  until ch=#27;
  DelList(LBegin);
end.

uses
  SysUtils;
 
type //структура ячейки
 pe=^el; //указатель на элемент списка
 el = record  // ЛОС - элемент списка
 inf: integer;     // информационное поле
 next: pe;     // указатель на следующий элемент
 end;
 
 Var //Глобальные переменные для использования в процедурах
 sag: pe; //указатель начала
 q: pe;   //текущий ук. в процедуре вывода
 s: pe;   //текущий ук. в процедуре создания КОС
 N: integer; // число ячеек
 
 //руссификатор
 function rus(s:string):string;
 var i: integer;
 begin
 for i:=1 to Length(s) do
 case s[i] of
  'А'..'п': s[i]:=chr(ord(s[i])-64);
  'р'..'я': s[i]:=chr(ord(s[i])-16);
  end;//case
  rus:=s;
   end;// конец руссификатора
   
 procedure input (var q:pe); //процедура ввода эл-ов в КОС
 var i:integer;
 begin
   For i:= 1 to N do
    begin
     New(q); //выделить память для новой ячейки
     q.inf := i; //заполняем инф.часть
     s.next := q; //связываем два эл-та цепочкой
     s:=q; //переход нашего указателя s на созданную ячейку q
    end;
  q.next := sag.next; //Даем последней ячейке адрес на заглавный элемент.
  //итак, сформирован Кольцевой Односвязный список
 end;
 
 
 procedure output(var q:pe);  //процедура вывода КОС на экран
 begin
  q:=sag.next; //ставим указатель на начало
  if (N = 0) then writeln(rus('КОС пуст... печалька'))
    else begin
     writeln('------------------');
     WriteLn(rus('Вывод КОС на экран: '));
     while (q.next <> sag.next) do begin //условие прохода по КОС
       write(q.inf,' ');
       q:=q.next;
       end;
     //вывод последнего элемента, т.к. в цикле while это пропускается
     if (q.next = sag.next) then begin
     write(q.inf, ' ');
     end;
      writeln;
      writeln(rus('Всего кол-во ячеек: '),N);
     end;
  end;
 
 
 BEGIN // начало основной программы
 new(sag); //создаем указатель начала
 s := sag; //ставим указатель s на него... эт нужно для п. input(q)
 
 write(rus('Введите количество ячеекв КОС: '));
 readln(N);
 
 input(q);  // п. ввода эл-ов в КОС
 output(q); // п. вывода КОС на экран
 
 readln;
 END.