помогите найти ошибку

[MyQwErTy]

2:begin
     clrscr;
     window(20,5,60,16);
     textbackground(white);
     clrscr;
     gotoXY(1,2);
     writeln('1-Make tables');           //Вывод дополнительного меню
     writeln('2-Write tables');
     writeln('3-Sorting');
     writeln('4-Favorite subject');
     writeln('5-Back to main menu');
     write('> ');
     readln(variant2);
     case variant2 of
1:begin
     window(1,1,80,25);
     textbackground(black);
     clrscr;
     gotoXY(1,1);                      //формирование массивов
   A[1]:='Jirinovskiy';
   A[2]:='Griboedov';
   A[3]:='Jukovskiy';
   A[4]:='Tolstoy';
   A[5]:='Dostoevskiy';
   A[6]:='Pushkin';
   A[7]:='Lermontov';
   A[8]:='Gugo';
   A[9]:='Aivazovskiy';
   A[10]:='Putin';
    writeln('Surnames of students');
   for i:=1 to 10 do                     //Вывод массивов
begin
     writeln(A[i]);
   end;
   readln;
     clrscr;
     randomize;
end;
For i:=1 to 10
Do Begin
   For j:=1 to 5 do begin
  B[i,j]:=random(4)+2;
   end;
   For i:=1 to 10
Do Begin
   For j:=1 to 5 do
   Write(B[i,j]:4);
   Writeln;
   End;
readln;
     clrscr;
   C[1]:='Math';
   C[2]:='Literature';
   C[3]:='Physics';
   C[4]:='Chemistry';
   C[5]:='Biology';
   for i:=1 to 5 do
     writeln(C[i]);
     readln;
     clrscr;
end;
     5:Goto return;
     end;
end;
3:begin
     exit;
readln;
     end;
  end;
end.

в строчке отмеченой красный цветом паскаль выдает ошибку:
Assigment to FOR-Loop variable 'i'

[mihali4]

У вас перед ним энда не хватает...
Чтобы закрыть предыдущий цикл с этой же переменной цикла.
Или просто уберите " For i:=1 to 10 Do"