объясните, где ошибка
program ssylka;
type
slovar=record
slovar_1:record
ru:string;
en:string;
shet:integer;
slovar_2:record
ru:string;
en:string;
shet:integer;
end;
end;
ss=^ssilka;
ssilka=record
s:slovar;
l:ss;
end;
var
nach,tek,pr:ss;
x,i:integer;
begin clrscr;
writeln('vvedite colihestvo slov');
readln(x);
new(nach);
writeln('vvedite en slovo');
readln(nach^.s.slovar_1.en);
writeln('vvedite ru slovo');
readln(nach^.s.slovar_1.ru);
writeln('vvedite shethik');
readln(nach^.s.slovar_1.shet);
nach^.l:=nil;
pr:=nach;
for i:=2 to x do begin
new(tek);
write('vvedite en slovo');
readln(tek^.s.slovar_1.en);
writeln('vvedite ru slovo');
readln(tek^.s.slovar_1.ru);
writeln('vvedite chethik');
readln(tek^.s.slovar_1.shet);
pr^.l:=tek;
tek^.l:=nil;
pr:=tek;
end;
tek:=nach;
while tek^.l<>nil do begin
writeln('ru slovo',tek^.s.slovar_1.ru);
writeln('en slovo',tek^.s.slovar_1.en);
writeln('shethik',tek^.s.slovar_1.shet);
tek:=tek^.l;
end;
end.
[Ответ]