Задачи в Delphi

[mov ax,bx]

Задачи вроде легкие, но я не учусь на программера и мне их задали. Помогите пожалуйста!!! Заранее СПАСИБО!
1) Если все числа x,y,z>10, то найти среди них максимальное. В противном случае-найти минимальное число
2) Дано 15 чисел. Чему равна разность max и min из них

[Daramant]

1)

var
  x, y, z: Integer;
begin
  // ввод данных
  writeln('input 1 value:');
  readln(x);
  writeln('input 2 value:');
  readln(y);
  writeln('input 3 value:');
  readln(z);

  if (x > 10) and (y > 10) and (z > 10) then begin
    // ищем максимальное
    if (x >= y) and (x >= z) then
      writeln('max = ', x)
    else
    if (y >= x) and (y >= z) then
      writeln('max = ', y)
    else
      writeln('max = ', z);
  end
  else begin
    // ищем минимальное
   if (x <= y) and (x <= z) then
      writeln('min = ', x)
    else
    if (y <= x) and (y <= z) then
      writeln('min = ', y)
    else
      writeln('min = ', z)
  end;

end.

Примерно так.

const
  ArraySize = 15;
var
  m: array[1..ArraySize] of Integer;
  i: Word;
  max, min: Integer;
begin
  // ввод данных
  for i := 1 to ArraySize do begin
    writeln('input ', i, ' value:');
    readln(m[i]);
  end;


  // обработка
  max := m[1];
  min := m[1];
  for i := 2 to ArraySize do begin
    if m[i] > max then
      max := m[i]
    else
    if m[i] < min then 
      min := m[i];
  end;
  
  writeln('max - min =', max - min);
end.

[mov ax,bx]

Daramant, спасибо!