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

program fg1;

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

var
a: perevod; {переменная а типа perevod}
f1:file of perevod;{переменная f1 это файл компонента которого является типа перевод}
begin
 read(a.x);{- слово русское}

 read(a.y);{-перевод иноязычное}
assign(f1,'E:\pascal\перевод.txt'); {отождествление файла и файловой переменной}
 reset(f1); {открыть файл для чтения с начала}
 seek(f1,filesize(f1)); { процедура seek(<имя_ф_переменной>, FileSize(<имя_ф_переменной>)) установит указатель на признак конца файла. }

 write(f1,a);    {вывод из  переменной f1 а}
close(f1);
end.