Составьте программку по информатике которая устраняет в строке s все пробелы,

Вы уж обусловьтесь, устраняет либо сменяет? Если устраняет, сменять нечего будет теснее. А если сменяет, то устранять нельзя.

которая сменяет)

// PascalABC.NET 3.0, сборка 1088
var
  s:string;
  i,p:integer;
begin
  Write('Введите строку: '); ReadLn(s);
  for i:=1 to Length(s) do
    if s[i]=' ' then s[i]:='.';
  WriteLn('Итог:      ',s)
end.
 
Тестовое решение:
Введите строчку: Это дело такое - тестировать   программки   !
Итог:      Это.дело.такое.-.тестировать...программки...!