По заданным значениям вычислить и выдать время окончаний школьных уроков

var a,b,c,d,f: integer;
q,w,e,r:integer;
p:integer;
begin
write('Введите длительность урока:');
 readln(a);
 write('Введите длительность перемены:');
 readln(b);
 Write('Введите время начала уроков(через пробел):');
 readln(c,d);
 begin
  for F:=1 to 8 do
  begin
   q:=c; w:=d+a*f+b*(f-1);
   if p=f-1 then w:=w-60;
                 q:=q+1;
   write('Часов: ',q);writeln(' Минут: ',w);
  end;
 end;
end.

var a,b,c,d,f: integer;
q,w,e,r:integer;
p:integer;
begin
write('Ââåäèòå äëèòåëüíîñòü óðîêà:');
 readln(a);
 write('Ââåäèòå äëèòåëüíîñòü ïåðåìåíû:');
 readln(b);
 Write('Ââåäèòå âðåìÿ íà÷àëà óðîêîâ(÷åðåç ïðîáåë):');
 readln(c,d);
 begin
  for F:=1 to 8 do
  begin
   w:=b+a+w;If f=1 then w:=w+d;
   While w>=60 do
            begin
             w:=w-60;
             c:=c+1;
             end;
   end;
   write('×àñîâ: ',c);writeln(' Ìèíóò: ',w);
 end;
end.