Символьная информация.

[Confused]

Задача состоит в том, что надо определить, какое предложение ты ввел с клавиатуры. Концом предложения считать: ? ! и .
Моя проблема состоит в том, например, когда я ввожу 'Privet mir !' знак восклицания она не читает и не выводит результат 'Voskl'

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

[Stilet]

  ReadLn(sent);
  znak:=copy(sent,Length(Sent),1);
    if znak='!' then WriteLn('Voskl');
    if znak='?' then WriteLn('Voprosit');
    if znak='.' then WriteLn('Povestv');

[Poma][a]

znak:=copy(sent,Length(Sent),1);

Эм.. а znak := sent[Length(sent)]; ?

[Stilet]

Верно, но что будет если там будет пустая строка? Твой вариант упадет на ошибку, а сору() просто пустоту вернет - там защита в ней от выходя за пределы строки, потому я и люблю ее использовать, не смотря на то что твой вариант оптимальнее для компьютера.
Впрочем

if Length(znak)>0 then znak := sent[Length(sent)] else znak:='';

вполне сработает на замену сору в данной задаче.

[Poma][a]

Верно, но что будет если там будет пустая строка?

Верно.. Мой косяк.. Спасибо!