program abc;

type
  mas = array[0..1000] of integer;

var
  m, d: mas; 
  i, nM, nD, max, min: integer;

begin
  //ввод значения
  WriteLn('Введите кол-во мальчиков:');       //для мальчиков
  ReadLn(nM);
  for i := 1 to nM do
  begin
    WriteLn('Введите рост мальчика №', i);
    ReadLn(m[i]);
  end;
  
  WriteLn('Введите кол-во девочек:');       //для девочек
  ReadLn(nD);
  for i := 1 to nD do
  begin
    WriteLn('Введите рост девочки №', i);
    ReadLn(d[i]);
  end;                                     //Все элементы массивов имеют значение
  //решение задачи
  max := -1;                              //для мальчиков
  for i := 1 to nM do
    if m[i] > max then
      max := m[i];
  Writeln('Самый высокий мальчик имеет рост: ', max);
  
  min := d[1];                            //для девочек
  for i := 1 to nD do
    if d[i] < min then
      min := d[i];
  Writeln('Самая низкая девока имеет рост: ', min);
  
  ReadLn;
end.