Даны два предложения разделённые точкой . вывести первое предложение

Держи.

var
s: string;

begin
writeln('Введите строку: ');
readln(s);
writeln('Первое предложение: ',Copy(s,1,pos('.',s)-1));
end.