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

Program zap_17;

Uses Crt;

Const
  n = 7;

Type
  temper = record
    dat1, den: string[20];
    t, vl: integer;
  end;

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

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите дату');
      Readln(dat1);
      Writeln(' Введите день недели');
      Readln(den);
      Writeln(' Введите температуру воздуха');
      Readln(t);
      Writeln(' Введите влажность');
      Readln(vl);
    End;
  Writeln('График изменения температуры');
  for i := 1 to n do
    with a[i] do
      Writeln(dat1, ' ', den, ' ', t, ' ', vl);
  Readln;

end.