Вывести список дел на сегодня

Program tipak;
 Uses Crt;
 Type
   baza=record
   mer:string[50];
   indecs: integer;
   year: integer;
   mounth:integer;
   day:integer;
   vrem_chas: integer;
   vrem_min:integer;
   protyag:string[50];
   mesto:string[50];
 
end;
 
      ma=array[1..100] of baza;
 
 Var t:ma;
     m:integer;
     base:boolean;
 
procedure Tab1;
 
begin
  WRITELN('--------------------------------------------------------------------------------');
  writeln('|Nomer| Nazvanie |  Indecs   |   Data   |Vremya|Protyazhennost|Mesto provedeniya|');
  WRITELN('--------------------------------------------------------------------------------');
 
end;
 
 
procedure Tab2;
 
begin
  WRITELN('--------------------------------------------------------------------------------');
end;
 
 
procedure dela_segodnya;
var
f:text;
i,p,q,o:integer;
 
begin
writeln('vvedite segodnyahnuy datu');
readln(p,q);
readln(o);
 
begin
if (p=t[i].year) and
   (q=t[i].mounth) and
   (o=t[i].day) then
   
writeln('Dela na segodnya');
writeln;
 
tab1;
for i:=1 to m do
 begin
 writeln('|',i:5,'|',t[i].mer:10,'|',t[i].indecs:11,'|',t[i].day:2,'.',t[i].mounth:2,
  '.',t[i].year:4,'|',t[i].vrem_chas:2,' :',t[i].vrem_min:2,'|',t[i].protyag:14,'|',t[i].mesto:17,'|');
tab2;
 end;
readln;
writeln;
end;
end;