Необходимо создать файл целых чисел, переписать его в двусвязный список типа кольцо.... что-то не выходит.. голову уже сломала...
type
chisla=^spisok;
spisok=record
info:integer;
prev:chisla;
next:chisla;
end;
var
afirst:chisla;
cursor:chisla;
f:file of integer;
i,j,a,n:integer;
begin
assign(f,'chisla.txt');
rewrite(f);
randomize;
writeln;
readln(n);
for i:=1 to n do
begin
a:=random(30)-14;
write(f,a);
end;
reset(f);
while not EOF(f) do
begin
read(f,a);
write(a,' ');
for i:=1 to n do
begin
afirst^.info:=a;
afirst^.next:=cursor;
afirst^.prev:=nil;
cursor^.prev:=afirst;
afirst:=cursor;end; end;
writeln;
write(afirst^.info,' ');
cursor:=afirst;
while cursor^.prev<>nil do cursor:=cursor^.prev;
cursor^.prev:=afirst;
afirst^.next:=cursor;
writeln('kolso: ');
afirst:=cursor^.prev;
repeat
write(afirst^.info,' ');
afirst:=afirst^.prev;
until afirst=cursor^.prev;
afirst:=cursor^.prev;
afirst^.next^.prev:=nil;
while afirst<>nil do
begin
cursor:=afirst^.prev;
Dispose(afirst);
afirst:=cursor;
end;
close(f);
readln; readln;
end.