Вывести сведения о детях от 10 до 12 лет, рост которых не менее 155 см, а вес не более 45кг

const
  N = 3;
 
type
  Person = auto class
    Surname, Name: string;
    Year: integer;
    Mass, Height: integer;
  end;
 
var
  &Array: array of Person;
 
begin
  SetLength(&Array, N);
  for var i := 0 to N - 1 do
  begin
    var p := ReadlnString().ToWords();
    &Array[i] := new Person(p[0], p[1], StrToInt(p[2]), StrToInt(p[3]), StrToInt(p[4]));
  end;
  &Array.Where(x -> begin
                      var d := 2017 - x.Year;
                      Result := (d >= 10) and (d <= 12) and (x.Height >= 155) and (x.Mass <= 45)
                    end).Select(x -> Format('{0} {1} {2} {3} {4}', x.Surname, x.Name, x.Year, x.Mass, x.Height)).Println();
end.

begin
  ReadArrString(ReadlnInteger('Count:')).Select(x -> x.ToWords()).
  Where(x -> begin
              var d := 2017 - StrToInt(x[2]);
              Result := (d >= 10) and (d <= 12) and (StrToInt(x[3]) <= 45) and (StrToInt(x[4]) >= 155)
             end).Select(x -> Format('{0}', x.JoinIntoString(' '))).JoinIntoString(NewLine).Println();
end.

begin
  ReadArrString(ReadlnInteger('Count:')).Select(x -> x.ToWords()).
  Where(x -> begin
              var d := 2017 - StrToInt(x[2]);
              Result := (d >= 10) and (d <= 12) and (StrToInt(x[3]) <= 45) and (StrToInt(x[4]) >= 155)
             end).Select(x -> x.JoinIntoString(' ')).JoinIntoString(NewLine).Println();
end.