[U.B.M.]

эх... а где отступы? не для врагов ведь пишешь... поломайглазкод

Код:

var
  x : array[1..5] of integer;
  y : array[1..6] of integer;
  z : array[1..11] of integer;
  maxx, maxy, minx, miny, i : integer;
begin
  minx := x[1];
  maxx := x[1];
  for i := 1 to 5 do
  begin
    minx := min(minx, x[i]);
    maxx := max(maxx, x[i]);
  end;

  //  аналогично для игрека
end;