Проверить, является ли заданная последовательность чисел симметричной - Turbo Pascal

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

Составить функцию, которая для одномерного массива целых чисел проверяет, является ли заданная последовательность чисел симметричной. В случае симметричности функция должна возвращать значение

истина

, в противном случае-

ложь

Решение задачи: «Проверить, является ли заданная последовательность чисел симметричной»

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

type mas=array[1..100] of integer;
function simm(a:mas;n:byte):boolean;
var i,k:byte;
begin
k:=0;
i:=1;
while(i<=n div 2)and(k=0) do
if a[i]<>a[n-i+1] then k:=1
else i:=i+1;
simm:=k=0;
end;

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

В данном коде используется функция simm, которая принимает в качестве аргументов массив чисел a и байт n. Функция проверяет, является ли заданная последовательность чисел симметричной. Внутри функции используются две переменные типа byte: i и k. Переменная i инициализируется значением 1, а переменная k инициализируется значением 0. Затем следует цикл while, который выполняется до тех пор, пока i меньше или равно n деленное на 2. Внутри цикла сравниваются значения элементов массива a на i и n-i+1. Если значения не равны, то переменная k устанавливается в 1. После этого переменная i увеличивается на 1. Функция simm возвращает значение true, если последовательность чисел симметрична, и false в противном случае. В конце кода значение переменной k сравнивается с 0. Если оно равно 0, то функция возвращает true, иначе - false.