Паскаль. Оператор FOR. ошибка!!!

[Viktory.nvrn]

Помогите, пожалуйста, найти ошибку. Программа зацикливается.
задача: написать программу, которая генерирует три последовательности из 10 случайных чисел в диапазоне от 1 до 10, выводит каждую последовательность на экран и вычисляет среднее арифметическое каждой последовательности.

program two;
const N=3;
      L=10;
var sred:real;
    r,sum,i,j:integer;
begin
writeln('Случайные числа');
Randomize;
for i:=1 to N do
begin
sum:=0;
for i:=1 to L do
begin
r:=Random(10)+1;
write(r:3);
sum:=sum+r;
end;
sred:=sum/L;
writeln('Среднее арифметическое:',sred:6:2);
end;
writeln('Для завершения работы программы нажмите <Enter>');
readln;
end.

[Grag]

Очень грубая ошибка! Ты используешь два цикла, один вложен в другой, при этом для обеих циклов используешь одну переменную i в качестве параметра цикла. Ну нельзя так делать!

[Serebro]

Сообщение от Viktory.nvrn

Помогите, пожалуйста, найти ошибку. Программа зацикливается.
задача: написать программу, которая генерирует три последовательности из 10 случайных чисел в диапазоне от 1 до 10, выводит каждую последовательность на экран и вычисляет среднее арифметическое каждой последовательности.
program two;
const N=3;
L=10;
var sred:real;
r,sum,i,j:integer;
begin
writeln('Случайные числа');
Randomize;
for i:=1 to N do
begin
sum:=0;
for i:=1 to L do
begin
r:=Random(10)+1;
write(r:3);
sum:=sum+r;
end;
sred:=sum/L;
writeln('Среднее арифметическое:',sred:6:2);
end;
writeln('Для завершения работы программы нажмите <Enter>');
readln;
end.

Заменить одно i на j.

[Viktory.nvrn]

Спасибо большое. Свои ошибки труднее найти(