Программа по паскалю, не могу понять в чем же ошибка - Pascal

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

Решила простую задачу по паскалю, однако не все так хорошо, ругается на else

 var a,b,c,d,e,f,g,j,i,k,y: integer;
begin
 writeln ('Линейки ');
 readln (a,b);
 writeln ('Тетради в клетку');
 readln (c,d);
 writeln ('Тетради в линию');
 readln (e,f);
 writeln ('Авторучки');
 readln (g,j);
 writeln ('Общая сумма');
 i:=(a*b)+(c*d)+(e*f)+(g*j);
 writeln (i);
 writeln ('Введите вашу сумму k =');
 readln (k);
 if k >= i then
      y:=k-i;
      writeln ('Сдача',y);
      else 
      if k < i then
      writeln ('Недостаточно средств для покупки');
end.

Решение задачи: «Программа по паскалю, не могу понять в чем же ошибка»

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

if k >= i 
then begin
      y:=k-i;
      writeln ('Сдача',y);
end  
      else 
      if k < i 
      then
      writeln ('Недостаточно средств для покупки');
end.

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

Этот код на языке Pascal представляет собой условную конструкцию. Давайте разберем его по шагам:

if k >= i - это условие, которое проверяет, является ли значение переменной k больше или равно значению переменной i. Если это условие истинно, то выполняются следующие действия.
y:=k-i; - это присваивание переменной y значения разности между k и i. Это происходит только в том случае, если первое условие истинно.
writeln ('Сдача',y); - это запись в стандартный вывод строки Сдача и значения переменной y. Это также происходит только в том случае, если первое условие истинно.
else - это оператор, который выполняет действия, противоположные тем, которые были выполнены в первом условии.
if k < i - это еще одно условие, которое проверяет, является ли значение переменной k меньше значения переменной i. Если это условие истинно, то выполняются следующие действия.
writeln ('Недостаточно средств для покупки'); - это запись в стандартный вывод строки Недостаточно средств для покупки. Это происходит только в том случае, если второе условие истинно. Таким образом, весь код представляет собой условную конструкцию, которая проверяет два условия и выполняет различные действия в зависимости от того, какое из них истинно.