Bıktım Abi Bu Pascaldan Yardım Edin

bir sınıftaki ögrencilerin adı vize ve final notlarını ve ortalamasını dogrudan eerişimli ogrenci.txt dosyasına kayıt eden program
kalın yazdıgım yerde hata veriyor
║type ■
║ogrenci=record ▒
║ ▒
║ad:string; ▒
║v,t:integer; ▒
║ort:real; ▒
║end; ▒
║VAR ▒
║d:file of ogrenci; ▒
║kdgrenci; ▒
║i,n:integer; ▒
║begin ▒
║kd.ort:=0; ▒
║assign('d,'c:\ogrenci.txt'); ▒
║rewrite(d); ▒
║writeln('ögrenci sayisini giriniz'); ▒
║readln; ▒
║for i:= 1 to n do ▒
║begin ▒
║writeln('ögrencinin adini giriniz');
readln(kd.ad); ▒
║writeln('ögrencinin vize notunu giriniz'); ▒
║readln(kd.v); ▒
║writeln('ögrencinin final notunu giriniz'); ▒
║readln(kd.f); ▒
║kd.ort=(kd.v*0,4)+(kd.f*0,6); ▒
║write(d.kd); ▒
║end; ▒
║close(d); ▒
║readln; ▒
║end.