БД pascalABC

program pr1;
uses crt;
type data1 = record
mounth:1..12;
year:2013..2017;
end;
type baza = record
size:integer;
medicine: string[50];
data: data1;
price: integer;
number:integer;
recommendation:string[40];
end;
var f: file of baza;
******cy: baza;
i, n: integer;
begin
writeln('введи число наименований');
readln (n);
assign (f, 'd.dat');
rewrite (f);
for i:=1 to n do begin
with ******cy do 
begin
writeln('введи номер аптеки');
readln(size);
writeln('введи название лекарства');
readln(medicine);
writeln('введи срок годности');
readln (data.mounth,data.year);
writeln('введи цену');
readln(price);
writeln('введи количество поступления');
readln(number);
writeln('введи рекомендации');
readln(recommendation);
end;
write (f,******cy); 
end;
close (f);
end.