Помогите решить задачу в Паскале

[freeman4913]

Описать логическую функцию Hodkorol(pole1,pole2), проверяющую может ли король за один ход перейти с pole1 на pole2 шахматной доски.Использовать типы:
Vertical = (a,b,c,d,e,f,g,h)
и
pole=record
Vert:vertical;
Horiz:1..8;
end;

Заранее спасибо всем добрым людям.

[freeman4913]

Люди добрые выручайте,завтра в 10 часов мне её уже сдавать

[_Dmitry]

type
  pole = record
    Vert: 'a'..'h';
    Horiz: 1..8;
  end;

function king(pole1,pole2: pole): boolean;
var
  dx,dy: integer;
begin
  king:=false;
  dx:=abs(pole1.Horiz-pole2.Horiz);
  dy:=abs(ord(pole1.Vert)-ord(pole2.Vert));
  if (dx in [0..1]) and (dy in [0..1]) then king:=true;
end;

Вызывать так

var
  pole1,pole2: pole;
  s: string;
begin
  pole1.Vert:='c'; pole1.Horiz:=6;
  pole2.Vert:='d'; pole2.Horiz:=5;
  if king(pole1,pole2) then s:='Да'
                       else s:='Нет';

[Леся]

Пожалуйста, помогите решить 2 задачки! Это ОЧЕНЬ ОЧЕНЬ СРОЧНО!!!
1)Составить функцию, которая вычисляет объём и площадь куба.
2)Написать процедуру, которая упорядочит одномерный массив в порядке
возростания.