Сформировать из типизированного файла однонаправленный список

В типизированном файле хранятся 10 целочисленных чисел сформировать из него однонаправленный список содержимое списка распечатать добавить новый элемент 777 в начало списка
program s1;
type ukaz=^zap;
zap=record
zn:integer;
cc:ukaz;
end;
procedure print(tek:ukaz);
begin
while tek<>nil do
begin
write(tek^.zn:4);
tek:=tek^.cc;
end;
end;
var
bas,tek,p,q,r:ukaz;
s:integer;
begin

bas:=nil;

for s:=0 to 9 do
begin
new(tek);
tek^.zn:=s;
tek^.cc:=bas;
bas:=tek;
end;
writeln('Исходный список');
print(tek);
writeln;
tek:=bas;

while (tek^.cc<>nil) do
tek:=tek^.cc;
new(p);
p^.zn:=10;
p^.cc:=nil;
tek^.cc:=p;
writeln('Список, полученный добавлением в конец 10:');
print(bas);


new(q);
q^.zn:=55;
q^.cc:=bas;
bas:=q;
writeln;
writeln('Список, полученный добавлением в начало 55:');
print(bas);
tek:=bas;


while(tek^.zn<>6) do
tek:=tek^.cc;
new(r);
r^.zn:=777;
r^.cc:=tek^.cc;
tek^.cc:=r;
writeln;
writeln('Список полученный добавлением элемента 777 между значения 5 и 6:');
print(bas);


bas:=bas^.cc;
writeln;
writeln('Список, полученный удалением первого и последнего элемента:');
tek:=bas;
while tek^.cc^.cc<>nil do
tek:=tek^.cc;
tek^.cc:=tek^.cc^.cc;
print(bas);


tek:=bas;
while (tek^.zn<>4) do
tek:=tek^.cc;
tek^.cc:=tek^.cc^.cc;
writeln;
writeln('Список, полученный удалением элемента со значением 3:');
print(bas);
tek:=bas;


writeln;
writeln('Первые 6 элементов списка: ');
write(tek^.zn:4);
write(tek^.cc^.zn:4);
write(tek^.cc^.cc^.zn:4);
write(tek^.cc^.cc^.cc^.zn:4);
write(tek^.cc^.cc^.cc^.cc^.zn:4);
write(tek^.cc^.cc^.cc^.cc^.cc^.zn:4);
writeln;
end.

0

Дык, вот же уже было: Сформировать из типизированного файла однонаправленный список

0