pascal da derleme hatası? "error 3"

[Yeşilmen]

Aşağıdaki programı derlediğimde hata veriyor...
error 3: Unknown identifier: Tanımlanmayan bir değişken kullanılmış.
iyi de ben bakıyorum tanımlanmamış şey yok :S nerde hata olabilir

program deneme1;
uses crt;
var
ad_soyad:array[1..10] of string[20];
okul_no:array[1..10] of string[10];
notlar:array[1..10] of char;
a,i,b:integer; c:char;
procedure ilk_ekran;
begin
     clrscr;
textcolor(white);
textbackgroundcolor(red);
gotoxy(24,2); write('™§renci Bilgi Sistemi');
gotoxy(4,6); write('1. Bilgi Gir');
gotoxy(4,8); write('2. Listele');
gotoxy(4,10); write('3. €�k�Ÿ');
gotoxy(14,14); write('Se‡im[1..3];
end;
procedure bilgi_gir;
begin
clrscr;
for i:=1 to 10 do
begin
     clrscr
gotoxy(10,8); write('i . ”§rencinin ad�'); read(ad_soyad[i]);
gotoxy(10,10); write('i . ”§�rencinin okuŸ mo'); read(okul_no[i]);
gotoxy(10,12); write('i. Ӥrencinin notu'); read(notlar[i]);
end;
write('bilgi giriŸi tamamland�');
end;
procedure listele;
begin
     clrscr;
gotoxy(4,2); write('Okul No');
gotoxy(17,2); write('Ad Soy Ad');
gotoxy(47,2); write('Not');
gotoxy(52,2); write('Durum');
for a:=2 to 68 do
begin
gotoxy(a,3); write('_');
end;
for i:=1 to 10 do
begin
gotoxy(4,i+3); write('okul_no[i]);
gotoxy(17,i+3); write('ad_soyad[i]);
gotoxy(47,i+3); write('notlar[i]);
gotoxy(57,i+3); if notlar[i] >=50 than write('BaŸar�l�') else write('BaŸar�s�z');
end;
procedure cikis;
begin
exit;
end;
begin
clrscr;
ilk_ekran;
repeat
c:=readkey;
case c of
'1': bilgi_gir;
'2': listele;
'3': cikis;
end;
until c in [1..3];
readln;
end.

[tasy]

Programda bikaçtane hata vardı onları düzelttim... Son halini gönderiyorum... mantıksal bir hata yok ise program güzel çalışıyor... Seninki ile karşılaştırıp hatalarını görebilirsin. kolay gelsin...

program deneme1;
uses crt;
var
ad_soyad:array[1..10] of string[20];
okul_no:array[1..10] of string[10];
notlar:array[1..10] of byte;
a,i,b:integer; c:char;
procedure ilk_ekran;
begin
     clrscr;

textcolor(white);
gotoxy(24,2); write('™§renci Bilgi Sistemi');
gotoxy(4,6); write('1. Bilgi Gir');
gotoxy(4,8); write('2. Listele');
gotoxy(4,10); write('3. €?k?Ÿ');
gotoxy(14,14); write('Se‡im[1..3]');
end;
procedure bilgi_gir;
begin
clrscr;
for i:=1 to 10 do
begin
     clrscr;
gotoxy(10,8); write('i . Ӥrencinin ad?'); read(ad_soyad[i]);
gotoxy(10,10); write('i . Ӥ?rencinin oku٠mo'); read(okul_no[i]);
gotoxy(10,12); write('i. Ӥrencinin notu'); read(notlar[i]);
end;
write('bilgi giriŸi tamamland?');
end;
procedure listele;
begin
     clrscr;
gotoxy(4,2); write('Okul No');
gotoxy(17,2); write('Ad Soy Ad');
gotoxy(47,2); write('Not');
gotoxy(52,2); write('Durum');
for a:=2 to 68 do
begin
gotoxy(a,3); write('_');
end;
for i:=1 to 10 do
begin
gotoxy(4,i+3); write(okul_no[i]);
gotoxy(17,i+3); write(ad_soyad[i]);
gotoxy(47,i+3); write(notlar[i]);
gotoxy(57,i+3); if notlar[i] >=50 then write('BaŸar?l?') else write('BaŸar?s?z');
end; end;
procedure cikis;
begin
exit;
end;
begin
clrscr;
ilk_ekran;
repeat
c:=readkey;
case c of
'1': bilgi_gir;
'2': listele;
{'3': cikis;}
end;
until c in ['1','2'];
readln;
end.

[Yeşilmen]

ok gece kontrol edeceğim çok saolun sonucu yazarım...