Ввести информацию по 10 перевозкам (N рейса, пункт назначения, наименование, вес). Найти суммарный объем всех перевозок — Pascal(Паскаль)

Program zap_19;

Uses Crt;

Const
  n = 10;

Type
  reys = record
    k: integer;
    punkt, tovar: string[20];
    ves: real;
  end;

Var
  a: array [1 .. n] of reys;
  i: byte;
  s: real;

BEGIN
  ClrScr;
  s := 0;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите номер рейса');
      Readln(k);
      Writeln(' Введите пункт назначения');
      Readln(punkt);
      Writeln(' Введите наименование товара');
      Readln(tovar);
      Writeln(' Введите вес товара');
      Readln(ves);
      s := s + ves;
    End;
  Writeln('Суммарный вес перевозок ', s:4:2);
  Readln;

end.