Паскаль. ошибка на 14 строке: индекс находился за пределами массива. что делать?

program n_6;

const m: array [1..4] of integer =(15, 18, 36, 54);

var i, x, y, z: integer;

procedure nod (a,b: integer; var c: integer);

begin

while a< > b do

if a> b then a: = a-b else b: = b-a;

c: =a

end;

begin

x: =m[1];

for i: =2 to 6 do

begin

y: =m[i];

nod (x,y,z);

x: =z

end;

writeln ('нод=',x)

end.

Программа, которая использует два массива

var 
c, a: array[1..20] of integer; 
i: integer;
begin 
write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 1 to 20 do   begin   
a[i] := c[20 - i + 1];   
write(a[i], ' '); 
end;  
end.

ИЛИ  Программа не использующая два массива, а просто переворачивающая первый

var 
c: array[1..20] of integer; 
i: integer;
begin  write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 20 downto 1 do  write(c[i], ' '); 
end.

Обе программы работают!

1}

Саша: «Я никогда не призывал к прогулу {ЛОЖЬ}, это была идея Коли {ЛОЖЬ}».

Коля: «Я никогда не предложил бы это первым{ПРАВДА}, во всем виноват Вова{ЛОЖЬ}».

Вова: «Эта идея пришла в голову Коле{ЛОЖЬ}. Я просто пошел за компанию{ПРАВДА}».

ОТвет: Зачинщик Саша.

2}

Допустим, первый болельщик ошибся насчёт Димы. Тогда:

Первый: «первым будет Дима{ЛОЖЬ}, а Миша будет вторым{ПРАВДА}»

Второй: «Катя займет четвертое место{ПРАВДА}, а второе место достанется Нине{ЛОЖЬ}»

Третий: «Катя займет третье место{ЛОЖЬ}, а на втором месте будет Дима{ПРАВДА}»

Это противоречит условию, потому что получается что второе место заняли сразу и Нина и Дима. Значит первый болельщик угадал, что Дима будет на 1-м месте:

Первый: «первым будет Дима{ПРАВДА}, а Миша будет вторым{ЛОЖЬ}»

Второй: «Катя займет четвертое место{ЛОЖЬ}, а второе место достанется Нине{ПРАВДА}»

Третий: «Катя займет третье место{ПРАВДА}, а на втором месте будет Дима{ЛОЖЬ}»

ОТвет: места распределились так: Дима 1-е, Нина 2-е, Катя 3-е, Миша 4-е

3}

Поскольку все назвали разные веса, то угадал только один. Значит двое других оба угадали материал. Это возможно только если гирька медная. Значит:

Алеша: «латунь{ЛОЖЬ}, 5 г{ПРАВДА}»

Витя: «медь{ПРАВДА}, 3 г{ЛОЖЬ}»

Игорь: «не латунь{ПРАВДА}, 4 г{ЛОЖЬ}».

ОТвет: медная гирька весом 5 г