Найти, сколько дней нужно для полного просмотра всех мультфильмов

type DB = record
            Name: string; 
            Cont: integer;
          end;
var kas: array [1..100] of DB;
    i,j,n: integer;
    gen,temp,day:integer; //День берем за 12 часов, т.е. 720 минут
    ID: string;
begin
gen:=0; //Общее время просмотра
day:=1; //Количество дней
  for i:=1 to 3 do
  begin
    write('Введите количество мультфильмов на ',i,' кассете: ');
    readln(n); 
    for j:=1 to n do
    begin
      with kas[j] do
      begin 
        write('Введите название мультфильма: ');
        readln(Name); 
        write('Введите продолжительность: ');
        readln(cont); 
      end;
    end;
    for j:=1 to n do //Вывод списка м-фильмов на i-касете
      writeln(kas[j].Name,' ',kas[j].Cont);
    for j:=1 to n do //Считаем общее время всех м-фильмов
      gen:=gen+kas[j].Cont;
  end;
temp:=kas[1].Cont; //В начале присваиваем продолжительность 1 фильма
  for i:=1 to 3 do 
  begin
    for j:=1 to n do 
    begin
      if temp>=180 then //Если продолжительность мультов >=180,  
      begin
        write('В ',day,' день, вы посмотрите: ',kas[j].Name); //тогда выводим эти мульты,
        inc(day); //день +1,
        temp:=kas[j+1].Cont; //темп принимает значение следующего мультфильма
      end
      else if temp<180 then //иначе
      begin
        temp:=temp+kas[j].Cont; //добавляем еще один мульт и проверяем дальше
      end;
    end;
  end;
  writeln('Общая продолжительность мультфильмов: ',gen);
  writeln('При просмотре не более 2х часов в день, вам понадобиться ',Trunc(gen/120)+1,' дней')
 end.

temp