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.