что здесь не так? пишет ошибка ожидался идентификатор

program n318_2;
Uses crt;
Var a,b:array[1..30] of integer;
i,n:integer;
rez,d1,d2:integer;
Begin
Clrscr;
For i:=1 to 30 do
Begin
a:=random(20);
b:=random(30);
Write(a,' ',b);
End;
d1:=0;
d2:=0;
For і:=1 to 15 do
Begin
rez:=(d1+(a[2*i-1]+b[2*i-1]))/(d2+(a[2*i]+b[2*i]));
End;
Writeln(‘Rez=');
Readkey;
End.