Написать по возможности одну программу для паскаль

Пример программы для паскальProgram a; const n=50; vari: byte; B: array[1… n] of word; procedure proc (A: array of word); beginfor i: =1 to n doif (129 <= A[i]) and (A[i] <= 160) or (161 <= A[i]) and (A[i] <= 175) or (225 <= A[i]) and (A[i] <= 242) thenWriteln ('index=',i+1,'; bukva — ',char (A[i]) ,',' A[i]=',A[i]); end; Beginwriteln; for i: =1 to n do B[i]: =random (300); for i: =1 to n do Begin write (',i,'=',B[i]); if (i mod 5=0) then writeln; end; writeln; writeln; proc (B); readln; end.