Error 85 hatasını anlamadım?

[Yeşilmen]

program not_sistemi;
uses crt;
var
a_s: array[1..10] of string[40];
o_n: array[1..10] of string[20];
notlari: array[1..10] of string[20];
a,k: integer;
begin
clrscr;
textcolor(white); textbackground(grey);
gotoxy(10,6); write('™§renci Bilgilerini S�ras�yla Giriniz');
for 1 to 10 do
begin
gotoxy(6,8+a); write('Ad Soyad');
writeln('a_s[a]');
gotoxy(6,9+a); write('Okul No');
writeln(o_n[a]);
gotoxy('6,10+a'); write('Notlar');
writeln(notlari[a]);
end:

gotoxy(10,4); write('™§renci Durum Listesi');
for k=1 to 30 do
begin
gotoxy(2+k,5); write('*');
end:
gotoxy(4,6+a); write('a_s[a]);
gotoxy(44,6+a); write('o_n[a]');
gotoxy('64,6+a'); write('notlari[a]');
if (not[a]>0) and (not[a]<50) than write('FF')
else if
(not[a]>=50) and (not[a]<70) than write('CC')
else if
(not[a]>=70) and (not[a]<90) than write('BB')
else if write('AA');
end:
readkey;
end.

for döngüsünü kavramak için şöyle bi örnek yapayım dedim. Ama bu örnek çalışmadı sebebi ise error 85 yani ";" eksikmiş ve imlecin yanıp söndüğü yerde imiş. biraz karıştırdım böyle bi sonuç çıkardım. Ama anlamadım yani... acaba hatam ne niye error 85 hatasını alıyorum?