Вывести список студентов, которым в этом году исполняется 20 лет

program stud20; 
 const n=2;
       m=1995;
 type 
    student=record
    fio: string;
    dat_r: real;
    kolp: integer;
    exam1,exam2,exam3: integer;
 end; 
 var x: array [1..n] of student; 
    i:integer;
    exam1,exam2,exam3: integer;
 begin 
      for i:=1 to n do 
      begin 
       writeln ('Введіть Прізвище студента'); 
       readln (x[i].fio); 
       writeln ('Введіть рік народження'); 
       readln (x[i].dat_r); 
       writeln ('Введіть кількість пропусків'); 
       readln(x[i].kolp); 
       Writeln('Введіть оцінку за 1 екзамен: ');
       Readln(exam1);
       Writeln('Введіть оцінку за 2 екзамен: ');
       Readln(exam2);
       Writeln('Введіть оцінку за 3 екзамен: ');
       Readln(exam3);
       end; 
    
      begin
        WriteLn('|','Прізвище':10,'|','Рік народження':10,'|','Кількість пропусків':10,'|','Екзамен 1':9,'|','Екзамен 2':9,'|','Екзамен 3':9,'|');
        for i:=1 to n do 
        with x[i] do 
        begin
          write('|',fio:10,'|',dat_r:10,'|',kolp:10,'|',exam1:9,'|',exam2:9,'|',exam2:9,'|');
         end;
      end;
    Writeln('Студенти, яким у цьому роцi виповнюється 20 років');
                             
           begin
            if x[i].dat_r = m+20 then 
            writeLn(x[i].fio,' ');
           end;
          readln
end.

program stud20;
uses Dos;
const n = 2;
type
  student = record
    fio: string;
    dat_r: integer;
    kolp: integer;
    exam1, exam2, exam3: integer;
  end;
var x: array[1..n] of student;
  i: integer;
  exam1, exam2, exam3: integer;
  year, month, dey, dow: Word;
begin
  for i := 1 to n do
  begin
    writeln('Введiть Прiзвище студента');
    readln(x[i].fio);
    writeln('Введiть рiк народження');
    readln(x[i].dat_r);
    writeln('Введiть кiлькiсть пропускiв');
    readln(x[i].kolp);
    Writeln('Введiть оцiнку за 1 екзамен: ');
    Readln(exam1);
    Writeln('Введiть оцiнку за 2 екзамен: ');
    Readln(exam2);
    Writeln('Введiть оцiнку за 3 екзамен: ');
    Readln(exam3);
  end;
 
  WriteLn('|', 'Прiзвище': 10, '|', 'Рiк народження': 10, '|', 'Кiлькiсть пропускiв': 10, '|',
    'Екзамен 1': 9, '|', 'Екзамен 2': 9, '|', 'Екзамен 3': 9, '|');
  for i := 1 to n do
    with x[i] do
    begin
      write('|', fio: 10, '|', dat_r: 10, '|', kolp: 10, '|', exam1: 9, '|', exam2: 9, '|', exam2: 9, '|');
    end;
  WriteLn;
 
  GetDate(year, month, dey, dow);
 
  Writeln('Студенти, яким у цьому роцi виповнюється 20 рокiв');
 
  begin
    if x[i].dat_r = year - 20 then
      writeLn(x[i].fio, ' ');
  end;
  readln
end.

program stud20;
uses System;
const n = 2;
type
  student = record
    fio: string;
    dat_r: integer;
    kolp: integer;
    exam1, exam2, exam3: integer;
  end;
var x: array[1..n] of student;
  i: integer;
  exam1, exam2, exam3: integer;
  dateToday : DateTime;  
begin
  for i := 1 to n do
  begin
    writeln('Введiть Прiзвище студента');
    readln(x[i].fio);
    writeln('Введiть рiк народження');
    readln(x[i].dat_r);
    writeln('Введiть кiлькiсть пропускiв');
    readln(x[i].kolp);
    Writeln('Введiть оцiнку за 1 екзамен: ');
    Readln(exam1);
    Writeln('Введiть оцiнку за 2 екзамен: ');
    Readln(exam2);
    Writeln('Введiть оцiнку за 3 екзамен: ');
    Readln(exam3);
  end;
 
  WriteLn('|', 'Прiзвище': 10, '|', 'Рiк народження': 10, '|', 'Кiлькiсть пропускiв': 10, '|',
    'Екзамен 1': 9, '|', 'Екзамен 2': 9, '|', 'Екзамен 3': 9, '|');
  for i := 1 to n do
    with x[i] do
    begin
      write('|', fio: 10, '|', dat_r: 10, '|', kolp: 10, '|', exam1: 9, '|', exam2: 9, '|', exam2: 9, '|');
    end;
  WriteLn;
 
  // GetDate(year, month, dey, dow);
  dateToday := DateTime.Today;
 
  Writeln('Студенти, яким у цьому роцi виповнюється 20 рокiв');
 
  begin
    if x[i].dat_r = dateToday.Year - 20 then
      writeLn(x[i].fio, ' ');
  end;
  readln
end.