Одной цепочкой, используя функцию удаления фрагментов из строки:

begin; 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации'.Remove(' ').Print; end.

Цикл (программа в новом стиле):

begin

var (s, t) := ('Информатика − наука, изучающая структуру, общие свойства и методы передачи информации', '');

for var n := 1 to Length(s) do

t += s[n] <> ' ' ? s[n] : '';

Print(t);

end.

Цикл (программа в старом стиле):

var

s, t: string;

n: integer;

begin

s := 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации';

t := '';

for n := 1 to Length(s) do

if s[n] <> ' ' then

t := t + s[n];

write(t);

end.