Паскаль, что за ошибка?
Почему не работает народ??(
почему не пашет? в личку отпишитесь
type
struct=record
name:string;
avtor:real;
godizd: (god1,god2);
end;
tstrc=^strc;
strc=record
st:struct;
pred,next:tstrc;
end;
var
f:file of struct;
a,b,c,d:tstrc;
st:str;
procedure f1;
var
k:integer;
begin
assign(f,'a.dat');
{////}
reset(f);
if iorezult<>o then
begin
rewrite(f);
end
else
begin
n:=filesize(f);
seek(f,n);
end;
writeln('Ââåäèòå èìÿ');
readln(x.name);
readln(x.cena);
Writeln('Ââåäèòå çíà÷åíèå 1-ïåðâàÿ ãðàíèöà ãîäà,2-âòîðàÿ ãðàíèöà ãîäà');
Readln(k);
if k=1 then
x.god1
else
x.god2;
write(f,x);
close(f);
end;
procedure vvod();
begin
assign(f,'a.dat');
reset(f);
a:=nil;
while not eof(f)do
begin
read(f,x);
new(b);
b^.st:=x;
if n=nil then
begin
a:=b;
a^.next:=a;
a^.pred:=a;
end
else
begin
if a=a^.next then
begin
if a^.st.name
d:=c^.pred;
c^.pred:=b;
d^.next:=b;
b^.next:=c;
end;
end;
end;end;
end;
procedure godizd;
begin
b:=a;
while b^.next<>a do
begin
b:=b^.next;
if b^.st.godizd=god1 then
writeln (b^.st.name,' ',b^.st.avtor);
end;
if b^.next.st.godizd=god1 then
writeln (b^.st.name,' ',b^.st.avtor);
end;
var
k:integer;
begin
repeat
writeln('1 - vvod i zapic v files');
writeln('2 - chtenie iz files');
writeln('3 - godizd');
writeln('4 - exit');
readln(k);
case k of
1:f1;
2:vvod;
3:godizd;
end;
until k=4;
end.