Исправить ошибку в коде рrogram p1; var i,n: integer; a: array [1..1000000] of string; begin readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do begin if (a[i] mod 100)=50 then a[i]: =а; write(a[i]); end; end.

1) program начинается з русской р
2) в массиве слишком много елементов
3) операцию mod нельзя применить к строке 
4) a[i]:=а - а - русская буква 
Тут даже исправлять нечего т. к. неясно что должна делать эта програма .