Pascal 7.0 Çalışıyoruz

[ibrahim]

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
║type                                                                          ■
║ogrenci=record                                                                ▒
║                                                                              ▒
║ad:string;                                                                    ▒
║v,t:integer;                                                                  ▒
║ort:real;                                                                     ▒
║end;                                                                          ▒
║VAR                                                                           ▒
║d:file of ogrenci;                                                            ▒
║kd:ogrenci;                                                                   ▒
║i,n:integer;                                                                  ▒
║begin                                                                         ▒
║kd.ort:=0;                                                                    ▒
║assign('d,'c:\ogrenci.txt');                                                  ▒
║rewrite(d);                                                                   ▒
║writeln('ögrenci sayisini giriniz');                                          ▒
║readln(n);                                                                    ▒
║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.



herşey dogru
¦assign('d,'c:\ogrenci.txt');                                                    -
satırında hata veriyor pascal kurulu olan varsa yazsın sizde ne hata vericek?

[uFUK]

bende kurulu bi bakayim

[ibrahim]

dene bakalım
kod hatası olmadıgı kesin ama eksik bir yerler var sanırım
20) Variable identifier expected: Değişken tanımı yapılmamış.
bu hata var