Описать запись с именем Zodiac

program znakk; 
uses crt; 
type Znak=record 
fi,zodiak:string[15]; 
data:array[1..3] of integer; 
end; 
const zodiak:array[0..11] of string = ('Vodoley (21.01-19.02)','Ribi (20.02-20.03)','Oven (21.03-20.04)','Telec (21.04-21.05)', 
'Blizneci (22.05-21.06)','Rak (22.06-22.07)','Lev (23.07-23.08)','Deva (24.08-23.09)', 
'Vesi (24.09-23.10)','Skorpion (24.10-22.11)','Strelec (23.11-21.12)','Kozerog (22.12-20.01)'); 
var m:array[1..8]of Znak; 
    P,z:Znak; 
    FL:file of Znak; 
    i,d:integer; 
begin 
assign(FL,'www.txt'); 
rewrite(FL); 
writeln('zadaite 8m struktur(familiii,imen,dat.r)'); 
for i:=1 to 8 do 
begin 
writeln('familiia, imia');    readln(m[i].fi); 
                   for d:=1 to 3 do 
                   begin 
                    if d=1 then writeln('day'); 
                     if d=2 then writeln('month'); 
                      if d=3 then writeln('year'); 
                       readln(m[i].data[d]); 
                           wrte(FL,m[i]); 
                   end; 
 
end; 
  
 close(FL); 
end.