Informatika (2 семестр) / 3 аттестация / (6)

type p = record
ru:string;
en:string;
end;
var f1: file of p;
s:string;
x,a:p;
k:integer;
begin
assign(f1, 'F:\t.txt');
reset(f1);
writeln('напишите слово');
readln(s);
a.ru:=s;
k:=1;
while not eof(f1) do
begin
read(f1, x);
if a.ru=x.ru then
begin
k:=k*(-1);
writeln(x.en);
end
else
k:=k*1;;
end;
if k>0 then writeln('нет перевода этого слова');
close(f1);
end.