Informatika (2 семестр) / 3 аттестация / поиск перевода в словаре

program fg1;
uses crt;
type           {описание типа }
perevod= record  {переменная типа рекорд}
x: string;  {x,y переменные типа стринг для обозначения 2х полей}
y: string;
end;

var
a: perevod; {переменная а типа perevod}
f1:file of perevod;{переменная f1 это файл компоненты этого файла типа перевод}
 symbol1:string;
c:integer;  {переменная с  целого типа, перемнная для проверки условия вывода}
begin

 assign(f1,'C:\Users\User\Desktop\информатика\информатика.txt'); {отождествление файла и файловой переменной}
 reset(f1); {открыть файл для чтения с начала}
 symbol1:='ответ';
 while not eof(f1)do {цикл пока не достиг конца файла делаем}
begin
 read(f1,a);
 c:=0;
 if symbol1=a.x then
              begin
               writeln(a.y);
               break;{выход из цикла}
             end
               else
                 c:=1;
               end;

 if c=1 then
        writeln ('нет такого слова в словаре');
close(f1);


end.