Посимвольный ввод

[Nataly026]

Как лучше по-вашему организовать посимвольный ввод с клавы, признак конца ввода - "="? Чето с Enter не понимаю?

[vovk]

А зачем вообще какой то признак конца ввода? символ он и есть символ
нажал = обрабатываем.

[Nataly026]

результат должен быть символьной строкой с "=" в конце. но без символа конца ввода каждого символа - Enter

[Poma][a]

ReadLn (tch);
while tch <> '=' do begin
         s := s+tch
         ReadLn (tch);
end;

[Ev[G]eN]

var
  Str: String;
  Chr: Char;
begin
  Str:='';
  writeln('Введите строку(окончание - "="): ');
  repeat
    read(Chr);
    Str:=Str+Chr;
  until (Chr = '=');
  writeln('Строка: ', Str);
end.