Структура Данных

[Никита757]

Реализовать структуру данных для ввода, хранения и редактирования распорядка дня. Для указанного в качестве текущего времени реализовать определение того, что следует делать через указанный промежуток времени.
На Делфи

[Stilet]

Твои пробы увидеть возможно?

[Никита757]

Они есть, но там все не очень хорошо

[Stilet]

Ничего страшного )
Не стесняйся, здесь все свои.

[Никита757]

Не могу осуществить, чтобы все момент из промежутка выдавал, и можно еще защиту, чтобы часы не превышали 24, а минуты 60
Паскаль АБС (n,l,k - это часы, а m,p,v - это минуты)
Помогите пожалуйста

program Rasporaydok_day;
var l,v,k,p,i,j,n,m,IOResult:integer;
s,z:string;
begin 
writeln ('Сколько занятий вы хотите ввести');
repeat
readln(s); val(s,j,IOResult);
if IOResult<>0  then writeln('Сколько действий вы хотите ввести');
until IOResult=0;
for i:=1 to j do
begin
writeln('Введите время');
    repeat
     readln(s); 
      val(s,n,IOResult);
       if IOResult<>0 then writeln('Введите часы еще раз');
      until IOResult=0; 
    repeat
  readln(s);
   val(s,m,IOResult);
    if IOResult<>0 then writeln('Введите минуты еще раз');
   until IOResult=0;  
writeln('Занятие'); 
readln(s);
writeln(n,':',m,' - ',s);
end;

begin
writeln('Введите промежуток времени который вам нужен');
writeln('Первое время');
    repeat
     readln(z); 
      val(z,l,IOResult);
       if IOResult<>0 then writeln('Введите часы еще раз');
      until IOResult=0;  
 repeat
  readln(z);
   val(z,v,IOResult);
    if IOResult<>0 then writeln('Введите минуты еще раз');
   until IOResult=0; 
   writeln(l,':',v);
   end;
begin
writeln('Второе время');
    repeat
     readln(z); 
      val(z,k,IOResult);
       if IOResult<>0 then writeln('Введите часы еще раз');
      until IOResult=0;  
 repeat
  readln(z);
   val(z,p,IOResult);
    if IOResult<>0 then writeln('Введите минуты еще раз');
   until IOResult=0; 
   writeln(k,':',p);
   end;   
writeln('Промежуток - ',l,':',v,' - ',k,':',p);

 if (((l<=n) or (v<=m)) and ((n<=k) or (m<=p))) then
 writeln(n,':',m,' - ',s) else writeln('Нет занятий');
end.