Определите сумму трех наибольших чисел! Ошибка! - Pascal

Формулировка задачи:

Посмотрите пожалуйста, вот в этой строке ошибка for x:=o to a do. Заранее спасибо!

program kontrol22;
var  x, y, z, a,  K, M, N, max, summa: real;
begin
 writeln('Эта программа определяет, сумму трёх наибольших чисел');
 write('введите число y');
 readln(y);
 repeat
 write('введите число x');
 readln(x);
 repeat
 write('введите число z');
 readln(z);
  for x:=o to a do
 if x:=max then
 x:=M;
  for y:=0 to a do
   if y:=max-L
   y:=N;
  for z:=o to a do
   if z:=max-2L then
   z:=K;
summa:=M+N+K;
writeln(‘Сумма трёх наибольших чисел’);
writeln(‘summa=’, summa)
end.

Решение задачи: «Определите сумму трех наибольших чисел! Ошибка!»

Листинг программы

program p1;
uses crt;
const n=4;
var i,j,k: integer;
a: array [1..n,1..n] of integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
     a[i,j]:=5 - random(10);
     write(a[i,j]:4);
    end;
     writeln;
  end;
for i:=1 to n do
 for j:=1 to n do
   if (i>j) and (a[i,j]<0) then
   inc(k);
   writeln('Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў: ',k);
end.

Объяснение кода листинга программы

Объявление переменных и массива В первой строке объявляются три переменные i, j, k типа integer (целое число), а также массив a типа array [1..n,1..n] of integer (массив размером n на n, элементы типа integer). Значение константы n равно 4.
Заполнение массива значениями В цикле происходит заполнение массива a случайными значениями от -5 до 5. Для этого используется функция random(10), которая возвращает случайное число от 0 до 9, и из него вычитается 5.
Вывод значений массива Цикл выводит значения массива a на экран. Каждое значение выводится в отдельной ячейке, при этом оно дополняется слева нулями до четырех разрядов.
Поиск отрицательных чисел во втором столбце Цикл проходит по всем элементам второго столбца массива a. Если элемент больше первого столбца и его значение отрицательно, то к переменной k прибавляется единица.
Вывод результата После завершения цикла выводится сообщение с количеством найденных отрицательных чисел.