Встречено 'else', а ожидалось ';' - Pascal ABC

Формулировка задачи:

type 
   matrix= array [1..5, 1..5] of integer; 
var 
   a,x: matrix; 
   i,j,k,l: integer;
begin 
   for i :=1 to 5 do
      for j :=1 to 5 do
      begin
         a[i,j]:=random(33);
         write('a[,i,j]=',a[i,j]);
         end;
         for i:=1 to 5 do
         begin
         x[i]:=random(5);
         write('x[i]=',x[i]);
         end;
         k:=0;
         l:=0;
         for i:=1 to 5 do
         begin
         for j:=1 to 5 do
         begin
         if (i<3) and (i<>3) then
         k:=k+a[i,j];
         if (i>3) then 
         l:=L+a[i,j]
         end;
         end;
         if (i=5) then 
         write('k=',k,'l=',l);
         if (k>l) then 
         begin
         for i:=1 to 5 do
         begin
         for j:=1 to 5 do
         begin
         a[i,j]:=a[i,j]+x[i];
         write(a[i,j]);
         end;
         end;
         else
        
         write('nichego ne delaem');
         
         end
         
         end.

Ошибочка вышла,вот,что он выдает Program1.pas(42) : Встречено 'else', а ожидался оператор

Решение задачи: «Встречено 'else', а ожидалось ';'»

Листинг программы

     for i :=1 to 5 do
     begin
         for j :=1 to 5 do
         begin
              a[i,j]:=random(33);
              write('a[', i, ',', j, ']= ', a[i,j]:2, '   ');
         end;
         WriteLn;
     end;

Объяснение кода листинга программы

В данном коде выполняется два вложенных цикла for. Первый цикл выполняется 5 раз, а второй - в каждой итерации первого цикла. В каждой итерации второго цикла выполняется следующая последовательность действий:

Переменной a[i,j] присваивается случайное число от 0 до 32 (включительно) с помощью функции random(33).
В консоль выводится значение переменной a[i,j] с помощью функции write(). Для улучшения читаемости, к названию переменной добавляются числа, соответствующие индексам массива.
После завершения второго цикла, в консоль выводится символ новой строки с помощью функции WriteLn().
После завершения первого цикла, программа завершается. Список действий:
Создание двухмерного массива a размером 5x5.
Присваивание случайного числа каждому элементу массива a.
Вывод значений каждого элемента массива a в консоль.
Завершение программы.