В ряду символов определить символы, которые встречаются по одному разу и напечатать номера их позиций — Pascal(Паскаль)

uses crt;
var a:string[20]; i,j:integer; z:array [1..20] of integer;
begin clrscr;
write('Vvedite simvoli: '); readln(a);
for i:=1 to length(a) do begin
    for j:=1 to length(a) do begin
    if a[i]=a[j] then z[i]:=z[i]+1;
    end;
if z[i]=1 then writeln('Symvol: ',a[i],'. Nomer: ',i);
end;
end.