Informatika (2 семестр) / 3 аттестация / чтение словаря

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

var
a: perevod; {переменная а типа perevod}
f1:file of perevod; {переменная f1 это файл типа перевод}
symbol : string ; {symbol переменная типа perevod}
begin
assign(f1,'E:\pascal\перевод.txt'); {отождествление файла и файловой переменной}
reset(f1); {открыть файл для чтения с начала}
while not eof(f1) do {пока цикл не дошел до конца файла делаем}
begin
read(f1,a); {чтение а из файла f1 }
write(a.x,'-');
writeln(a.y);
end;
close(f1);
end.