Операция '=' не применима к типам char и real

var
  x: char;
  n: real; //количество вещества
  Nm: integer; //количество молекул
  Mo: real; //молярная масса вещества
  m0: real; //масса одной молекулы
  m: real //масса
  Mr: real; //относительная молекулярная масса
begin
  writeln('Что надо найти?');
   read(x);
if x=n then writeln('Введите Количество молекул'); // <<=== Ошибка в этой строке
  readln(Nm);
  n := Nm/NA;
  write('Количество вещества равно' , ' ', n);
end.

if x='n' then writeln('Введите Количество молекул');

if x='n' then 
  begin
    writeln('Введите Количество молекул');
    readln(Nm);
    n := Nm/NA;
    write('Количество вещества равно' , ' ', n);
  end;
end.

var a, bb, ccc: real;
    x: string;
//...
  readln(x);
  if x = 'a'
    then begin
      //...
    end
    else if x = 'bb'
      then begin
        //...
      end
      else if x = 'ccc'
        then begin
          //...
        end
        else writeln('Введено неверное имя');
//...

var a, b, c: real;
    x: char;
//...
  readln(x);
  case x of
    'a': begin
           //...
         end; 
    'b': begin
           //...
         end;
    'c': begin
           //...
         end
         else writeln('Введено неверное имя')
  end;
//...