помогите поправить ошибку в коде рrogram P1; var i,n: integer; a:array

Помогите поправить ошибку в коде
р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.

Женек 2019-09-05 04:54:27

Ошибка содержится В цикли?