Записать 100 вместо максимальных по модулю элементов массива Y (n), где n <= (меньше…

Плохо знаю синтаксис паскаля, но думаю сможешь переделать на паскалевский, там все понятно. Функция abs — берет модуль от числа. n,i,b,s,m (10) as integerread (n); Y (n) as integer; for i=1 to n doread (Y (i); b=1s: =Y (1) m (b): =1for i=2 to n doif abs (Y (i) >abs (s) thens: =Y (i); b: =1; m (b): =i; elseif abs (Y (i)=abs (s) thenb: =b+1m (b): =i end; end; for i=1 to b doY (m (i)=100; end. Напишите пожалуйста, если что-то не понятно или выдает ошибку.