Найти наибольший элемент числовой последовательности. в паскале с массива 20б.heelp!

Var a: array[1..1000] of integer;   b,c,i: integer;   begin   readln(b); // - количество елементов массива, не больше 1000   for i: =1 to b do   read(a[i]);   c: =0;   for i: =1 to b do   if a[i]> c     then     c: =a[i];   writeln(c);   readln end.

Программа вставляет перед элементом, кратным 5, элемент со значением 99 (чтобы его было видно среди прочих из диапазона [1..50] ) const   nm = 20; var   i, j, n, nn: integer;   a: array[1..nm] of integer; begin   n : = nm div 2;   nn : = n;   randomize;   writeln('*** исходный массив ***');   for i : = 1 to n do   begin       a[i] : = random(50) + 1;   { [1..50] }       write(a[i]: 3)   end;   for i : = n downto 1 do   begin       if a[i] mod 5 = 0 then begin           nn : = nn + 1;           for j : = nn downto i do a[j] : = a[j - 1];           a[i] : = 99       end   end;   writeln(#13#10, '*** массив-результат ***');   for i : = 1 to nn do write(a[i]: 3);   writeln end. *** исходный массив ***   23 22 27 16 45 42 15 13 27 31 *** массив-результат ***   23 22 27 16 99 45 42 99 15 13 27 31