Составить программу, выводящую на экран график отпусков (Ф. И. О., дата начала отпуска, дата выхода на работу, количество дней) — Pascal(Паскаль)

Program zap_14;

Uses Crt;

Const
  n = 10;

Type
  grafik = record
    Fio, dat1, dat2: string[20];
    kol: integer;
  end;

Var
  a: array [1 .. n] of grafik;
  i: byte;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите фамилию, имя, отчество ');
      Readln(Fio);
      Writeln(' Введите дату начала отпуска');
      Readln(dat1);
      Writeln(' Введите дату окончания отпуска');
      Readln(dat2);
      Writeln(' Введите количество');
      Readln(kol);
    End;
  Writeln('График отпусков');
  for i := 1 to n do
    with a[i] do
      Writeln(Fio, ' ', dat1, ' ', dat2, ' ', kol);
  Readln;

end.