Из символьного массива исключить все элементы, содержащие символ 'A'

[Ebon]

Из символьного массива исключить все элементы, содержащие символ 'A'.
Выдает ошибку, где if a[i]=a и пишет: операнды имеют неприводимые типы, что не так?

const n=5;
var
a: array [1..n] of char;
i,j,m: integer;
Begin
 for i:=1 to n do
  readln(a[i]);
 m:=n;
 i:=1;
while i<=m do
if a[i]=a
then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
m:=m-1
end
else i:=i+1;
for i:=1 to m do
writeln(a[i]);
end.

[veniside]

кавычки забыли

if (a[i]='a') or (a[i] = 'A') then ...