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

[Confused]

Помогите пожалуйста переделать программу. Надо что бы предложение вводились посимвольно.

Uses    CRT;
Var     sent,znak:string;
Begin
  ClrScr;
  ReadLn(sent);
  znak:=copy(sent,Length(sent),1);
    if znak='!' then WriteLn('Voskl');
    if znak='?' then WriteLn('Voprosit');
    if znak='.' then WriteLn('Povestv');
ReadLn;
End.

[ZX Spectrum-128]

...
Ch:char;
...
Cent:='';
While ch<>#13 do
  Begin
     Ch:=readkey;
   Cent:=cent+ch;
  End;

[Confused]

Не могу разобраться с вашим кодом. Можете пожалуйста по-подробней описать.

[ZX Spectrum-128]

Пока не нажат ентер делать
Считать символ
Занести символ в строку

Так понятнее?

[Confused]

Я не пойму как вашу часть кода вписать в мой.

[ZX Spectrum-128]

Первую строчку в var
Все остальное вместо readln;

[Confused]

Не работает, или я не правильно все делаю.

Uses    CRT;
Var     sent,znak:string;
	ch:char;
Begin
  ClrScr;
  readln(sent);
  znak:=copy(sent,Length(sent),1);
    if znak='!' then WriteLn('Voskl');
    if znak='?' then WriteLn('Voprosit');
    if znak='.' then WriteLn('Povestv');
  sent:='';
  While ch<>#13 do
  Begin
     Ch:=readkey;
   sent:=sent+ch;
  End;
End.

[ZX Spectrum-128]

Вместо readln, а не в конец программы.

[Confused]

Все равно не работает.
Что значит #13?

Uses    CRT;
Var     sent,znak:string;
	ch:char;
Begin
  ClrScr;
  sent:='';
    While ch<>#13 do
      Begin
        Ch:=readkey;
        sent:=sent+ch;
      End;
  znak:=copy(sent,Length(sent),1);
    if znak='!' then WriteLn('Voskl');
    if znak='?' then WriteLn('Voprosit');
    if znak='.' then WriteLn('Povestv');
ReadLn;
End.

[ZX Spectrum-128]

#13 - enter
А что значит не работает? Вы набираете символы, затем нажимаете enter и у вас в sent ничего не появляется?