ошибка operator is not overloaded

[vavrenyuka]

var a: array [1..100, 1..100] of longint;
    b: array [1..100, 1..100] of longint;
    xk, yk, xs, ys, n, d, i, j: longint;
    s: real;
begin
  read(n);
  read(xk, yk);
  for xs := 1 to n do
  for ys := 1 to 2 do
  read(a[xs, ys]);
  for i := 1 to n do
   d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys]));
  for i := 1 to n do
  s := s+d;
  write(s:0:2);
end.

Ошибка: operator is not overloaded

Помогите исправить пожалуйста, буду очень благодарен
Я новичёк, не понимаю в чём дело...

Вот задача: Безымянный.jpg

[eoln]

Где ошибка? В какой строке?
Переменная d целочислена, а ей вещественные значения присваиваются (в результате извлечения корня)
Паскаль не старый надеюсь? Иначе столько памяти ему не потянуть

[Вадим Мошев]

Вот у меня и ругался на то, что памяти слишком много скушано.
Советую все сотни заменить на 10, а тип longint заменить на byte

в коде не разбирался, а по алгоритму могу посоветовать вот что.
1. Ищем расстояние от дома до каждого спонсора.
2. Суммируем эти расстояния.
3. Удваиваем сумму, это и будет результатом.

[alexander13]

 a: array [1..100, 1..100] of longint;
...
d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys]));

upd.
Что-то подсветка кода все испортила.. Смысл моего сообщения в том, что Вы производите очень странную операцию с двумерным массивом.

[vavrenyuka]

Спасибо за ответы, ошибка осталась, кто-нибудь помогите, пожалуйста, решить эту задачу...
Я хоть правильно делать начал? А то в Паскале дуб дубом

[Вадим Мошев]

Что-то я тупеть начал. Довольно долго до меня допирало, что индекс массива a должен быть ДВОЙНОЙ, поскольку массив - двумерный!

Может оттого, что мозги мои заняты другим?

[vavrenyuka]

А код не подскажите ?

[Вадим Мошев]

Я не знаю, я не копался в коде. Советую заново решить задачу по предложенному мной алгоритму:

1. Ищем расстояние от дома до каждого спонсора.
2. Суммируем эти расстояния.
3. Удваиваем сумму, это и будет результатом.

[vavrenyuka]

Вадим, не подскажите как искать расстояние ?
d := sqrt(sqr(a[xk]-a[xs]) + (a[yk]-a[ys])); ?

[Вадим Мошев]

Математическими формулами.

Пусть (hx, hy) - координаты точки, где живёт карлсон.
(xi, yi) - это координаты i-го спонсора.

Расстояние от дома до спонсора находится так
sqrt(sqr(xi-hx) + sqr(yi-hy))