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

Program zap_16;

Uses Crt;

Const
  n = 10;

Type
  sotrud = record
    Fio, dol, dat1: string[20];
    zar: real;
  end;

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

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите ФИО');
      Readln(Fio);
      Writeln(' Введите должность');
      Readln(dol);
      Writeln(' Введите дату рождения');
      Readln(dat1);
      Writeln(' Введите зарплату');
      Readln(zar);
    End;
  Writeln('Ведомость выдачи заработной платы');
  for i := 1 to n do
    with a[i] do
      Writeln(Fio, ' ', dol, ' ', dat1, ' ', zar:4:2);
  Readln;

end.