Св pascal: дано: m килограмм яблок и n килограмм апельсинов, посчитать стоимость покупки если килограмм апельсинов стоит k рублей, а кг яблок r рублей. уже 4 час сижу с другом и мозг пинаю, все ошибки различные

var m, n, k, r, sum : integer;

begin

 write('Введите цену яблок: '); read(r);

 write('Введите цену апельсинов: '); read(k);

 write('Введите кг яблок: '); read(m);

 write('Введите кг апельсинов: '); read(n);

 sum := r*m + k*n;

 write('Общая стоимость покупки: ',sum);

end.