Замена знака каждого пятого элемента массива на противоположный

Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100] of integer ;
 
var
a:mat; // переменная массива
i,n:integer; // переменная I вводится как индекс массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 100) - ');readln(n);   // вводим размер одномерного массива
 Write('Массив: ');
 For i:=1 to n do
    begin
    a[i]:=random(50)-25;
    Write (a[i],' ');
    if i mod 5 = 0 then
       begin
         if a[i]>0 then a[i]:=-a[i] else a[i]:=abs(a[i]);
       end;
    end;
 
//------------------------------------------------------------------------------ // вывод массива 'A'
Writeln; writeln;
 Write('Новый массив: ');
 For i:=1 to n do
 write(a[i],' ');
 
 readkey; // читает символ из буфера клавиатуры.
 
end.