I can’t understand what the problem is (the line is specified)

var
  i: char;
  j: integer;
  s: string;
  x: boolean;
begin
  writeln('Enter the string:');
  readln(s);
  for i := char[33] to char[255] do{He writes here:no default index property for typechar}
  begin
    x := false;
    for j := 1 to length(s) do
    begin
      if i = s[j] then
      begin
        if not x then 
          write(i, ' - ');
          write(s[j], ' ');
          flag:=true
      end;
      if x then writeln;
    end;
  end;
end.

Answer 1

for i := char(33) to char(255) do

or

for i := chr(33) to chr(255) do