Удаление точек в Pascal abc.

Question

Cоставьте программу которая удаляет в строке s все точки.
Гнать. Держать. Смотреть. Видеть. Слышать. Дышать.
Решите, пожалуйста. Можно не развёрнутую, тобишь присвоить сразу, без Writeln

Aнна Дьякова · Accepted Answer

var s, str: string;
begin
s:='Гнать. Держать. Смотреть. Видеть. Слышать. Дышать. ';
str:='';
for i:=1 to length(s) do
if (s[i] != '.') str:=str+s[i];
writeln(str);