Miscellany

program laba_3;
type
   link	= ^kom;
   kom	= record
	     prev : link;
	     number  : integer;
	     next : link;
	  end;
	
var     head:link;
	choise,number:integer;

procedure create(var head:link);
var number:integer;
begin
	writeln('new list has been created');
	readln;
	writeln('input data');
	readln(number);
	new(head);
	head^.number:=number;
	head^.prev:=head;
	head^.next:=head;
end;

procedure addfin(var head:link);
var number:integer;
    curr:link;
begin
	writeln('input data');
	readln(number);
	curr:=head;
	repeat 
	curr:=curr^.next;
	until curr^.next = head;
	new(curr^.next);
	(curr^.next)^.number:=number;
	(curr^.next)^.prev:=curr;
	(curr^.next)^.next:=head;
	curr:=curr^.next;
end;

procedure view(head:link);
var temp:link;
begin
	writeln;
	temp:=head;
	writeln('the list is');
	repeat
	writeln(temp^.number);
	temp:=temp^.next;
	until temp=head;
end;

begin
    head:=nil;
    choise:=1;
    while choise <> 0 do
    begin
	writeln;
	writeln('type 1 to create list');
	writeln('type 2 to add the record');
	writeln('type 3 to view list');
	writeln('type 0 to exit');
	readln(choise);
	case choise of 
	1: create(head);
	2: begin
		addfin(head);
		writeln('proshlo');
	   end;
	3: view(head);
	else begin 
		if choise <> 0 then
		writeln('you pressed wrong key')
		else writeln('thank you for using this programm');
	     end;
	end; {case}
    end;
end.