Составьте программу, выдающую список тех Ваших друзей, кому в этом году исполняется 19 лет.

const m=3;
type students = record
         name:string;
         year:Integer;
         month:integer;
         date:integer;
       end;
       mas=array[1..m] of Students;
var S:mas;
    i:integer;
     n:integer;  {имя}
     y:integer;  {возраст}
     d:integer;   {дата}
     mon:integer;
 
 
procedure vvod (var s:mas);
var  i:byte;
 
begin
for i:=1 to m do
begin
   Writeln('Введите имя студента: '); readln(s[i].name);
   Writeln('Введите возраст: '); readln(s[i].year);
   Writeln('Введите месяц рождения'); readln(s[i].month);
   Writeln('Введите дату рождения'); readln(s[i].date)
end;
end;
 
procedure proverka (var s:mas; year,month,date:integer );
var I:integer;
begin
for I:=1 to m do
begin
 if (S[i].year<year-20) then WriteLn(S[i].Name, ' 19 лет');
 
 if (S[i].month<=month) and (S[i].year=year-19)then WriteLn(S[i].Name, ' 19 лет');
 
 if (S[i].date<date)and (S[i].year=year-19) and (S[i].month=month)then WriteLn(S[i].Name, ' 19 лет');
end; 
end;
 
 procedure print (var s:mas);
  var i:byte;
  begin
              for I:=1 to m do
              begin
              write (S[i].Name, ' 19 лет');
       writeln;
  end;
  
begin
writeln ('Введите текущую дату'); 
readln (n, y, d);
vvod (s);
proverka (s, n, y, d);
print (s);
readln;
end;
end.