Программа должна вывести таблицу, введённых пользователем ФИО и дат рождения в установленное пользователем кол-во ячеек

program project1;
uses crt;
var
  n,i,x,y: integer;
  k: array[1..1000] of string;
begin
  writeln ('Колличество учеников минимум (10)');
  readln (n);
  if (n>50) or (1<=0) then
    repeat
    begin
      writeln ('Введено неправильное число.');
      read (n);
    end;
  until n<=50;
  for i:=1 to n do
    begin
      writeln (n);
    end;
    clrscr;
  writeln ('Введите ФИО спротсменов');
  readln (k[i]);
  writeln ('╔═══╦════════════════════════════════════════════╦══════════════════════╗');
  writeln ('║ № ║                     ФИО                    ║          Дата        ║');
  writeln ('║   ║                  Спортсмена                ║        рождения      ║');
  writeln ('╠═══╬════════════════════════════════════════════╬══════════════════════╬');
  for n:=1 to n do
  begin
    writeln ('║',n,'  ║            ',k[n],'                               ║                      ║');
    writeln ('╠═══╬════════════════════════════════════════════╬══════════════════════╬');
  end;
  writeln ('║',n+1,' ║                                            ║                      ║');
  writeln ('╚═══╩════════════════════════════════════════════╩══════════════════════╝');
end.

program Project1;
 
uses crt;
const
  maxrec = 100;
type
  TSportsmen = record
    FIO: unicodestring;
    birthday: integer;
  end;
  TArraySportsmen = array [1..maxrec] of TSportsmen;
 
var
  n,i,vozrast, sumvozrast: integer;
  ArraySportsmen: TArraySportsmen;
begin
  write ('Количество записей о спортсменах (не более ',maxrec,'): ');
  repeat
    readln(n);
    if (0 >= n) or (n >  maxrec )then
      writeln ('Введено неправильное число. Попытайтесь снова.');
  until (0 < n) and (n <= maxrec);
  clrscr;
  for i:= 1 to n do
  begin
    writeln ('Введите ФИО ',i,' спортсмена: ');
    readln (ArraySportsmen[i].FIO);
    writeln ('Введите год рождения ',i,' спортсмена: ');
    repeat
      readln(ArraySportsmen[i].birthday);
      if (1910 >= ArraySportsmen[i].birthday) or (ArraySportsmen[i].birthday > 2018) then
        writeln ('Введен некорректный год. Попытайтесь снова.');
    until (1910 <= ArraySportsmen[i].birthday) and (ArraySportsmen[i].birthday < 2018);
 
  end;
 
  writeln ('╔════╦════════════════════════════════════════════╦══════════════════════╗');
  writeln ('║ №  ║                     ФИО                    ║          Дата        ║');
  writeln ('║    ║                  Спортсмена                ║        рождения      ║');
  writeln ('╠════╬════════════════════════════════════════════╬══════════════════════╣');
  for i:= 1 to n do
    begin
      writeln ('║',i:3,' ║   ',ArraySportsmen[i].FIO:38,'   ║   ',ArraySportsmen[i].birthday:17,'  ║');
    end;
  writeln ('║',(n+1):3,' ║                                            ║                      ║');
  writeln ('╚════╩════════════════════════════════════════════╩══════════════════════╝');
 
  writeln ('╔════╦════════════════════════════════════════════╦══════════════════════╗');
  writeln ('║ №  ║                     ФИО                    ║       Возраст        ║');
  writeln ('║    ║                  Спортсмена                ║                      ║');
  writeln ('╠════╬════════════════════════════════════════════╬══════════════════════╣');
  sumvozrast:= 0;
  for i:= 1 to n do
    begin
      vozrast:= 2019 - ArraySportsmen[i].birthday;
      sumvozrast:= sumvozrast + vozrast;
      writeln ('║',i:3,' ║   ',ArraySportsmen[i].FIO:38,'   ║   ',vozrast:17,'  ║');
    end;
  writeln ('║',(n+1):3,' ║                                            ║                      ║');
  writeln ('╚════╩════════════════════════════════════════════╩══════════════════════╝');
  writeln ('Средний возраст спортсменов: ',round(sumvozrast/n));
  readln;
end.

type
  TSportsmen = record
    FIO: string;
    birthday: integer;