Знайдіть суму всіх цілих чисел від 1 до 100 в abcpascal на фотке вроде как пример но я просто переписал оно не работает может что-то не то скачал или учитель , но кароч нужно написать​

Тест по темам «Файлы и файловая система»,
«Программное обеспечение компьютера»
1.Файл это:
Г) программа или данные, имеющие имя и хранящиеся в долговременной памяти
2.Имя файла состоит из двух частей:
Б) имени и расширения
3.Имя файлу даёт:
В) программа при его создании
Г) пользователь
4.Расширение файлу присваивает:
А) программа при его создании
В)пользователь
5.Имя файла может включать до
В) 256 символов
6.Под расширение отводится
В) 3 символа
Хотя возможно до 256
7.В процессе форматирования диск разбивается на две области:
Б) область хранения и каталог
8.Одноуровневая файловая система
В)когда каталог диска представляет собой линейную последовательность имён файлов и соответствующих начальных секторов
9.Путь к файлу
Г)начинается с логического имени диска, затем записывается последовательность имён вложенных друг в друга папок, в последней из которых находится нужный файл
10.Выберите правильное имя файла
В) 12345.BMP
Г) SPRAVKI  (расширения может и не быть, это не ошибка)
11.Операционная система относится к
Б) к системному программному обеспечению
12.Где хранится выполняемая в данный момент программа и обрабатываемые данные
В) в оперативной памяти
13.Каталогом называется место на диске имя и содержащее
Б) файлы и другие каталоги
14.Операционная система это:
Г) комплекс программ, организующих управление работой компьютера и его взаимодействие с пользователем
15.Имя логического диска обозначается
Г) латинскими буквами
16.Корневой каталог – это
А) первый верхний (зависит от модели, например в дереве папок корневой каталог в самом верху обычно)
Б) самый нижний (зависит от модели, впринцепе корни внизу)
Г) самый большой (да, потому что содержит все остальные)
17.Путь к файлу не включает ...
В) команду
18.Состояние операционной системы, при котором она перестает выдавать результаты и реагировать на запросы. - это ..
Г) зависание
19.Дано дерево каталогов. Определите полное имя файла Doc3.
А) A:\DOC3
Б) A:\DOC3\Doc3
В) A:\DOC3\Doc1
Г) A:\TOM3\Doc3
20.В процессе загрузки операционной системы происходит:
В) последовательная загрузка файлов операционной системы в оперативную память
21.Приложение - это
Г) программа, с которой пользователь решает свои прикладные задачи
22.Приложение функционирует под управлением
В) операционной системы
Г) пользователя
Управляют приложением оба
23.К приложения общего назначения не относятся:
В) звуковые редакторы

Program samost;

const
  n = 5;
  m = 5;

type
  tmatr = array[1..n, 1..m] of integer;

procedure PrintMatrix(g: tmatr);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do Write(g[i, j]:4);
    Writeln
  end
end;

procedure MakeMatrix(var a: tmatr);
var
  i, j: integer;
begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do a[i, j] := random(10) - 5;
end;

var
  a: tmatr;
  i, j, k: integer;

begin
  MakeMatrix(a);
  Writeln('matrica A: ');
  PrintMatrix(a);
  k := 0;
  for i := 1 to n do
    for j := 2 to m-1 do
      if (a[i, j] < a[i, j+1]) and (a[i, j] > a[i, j-1]) then inc(k);
  Writeln('kolichestvo elementov = ', k);
end.

Тестовое решение:

matrica A:
   4   4   0  -2  -3
   1  -4   4  -5   0
   2   4  -2   1  -2
  -4  -5  -4  -2   4
   1   0   0  -3   2
kolichestvo elementov = 2