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.