Вставить вместо пробелов точки — Pascal(Паскаль)

uses crt;

var
  dl, ch, n: integer;
  text, text1: string;

label 1;

begin
  clrscr;
  writeln('Введите текст');
  readln(text);
  dl := length(text);
  n := pos(' ', text);
1:
  if n > 0 then
  begin
    Delete(text, n, 1);
    insert('.', text, n);
    dl := length(text);
    if dl > 0 then
    begin
      n := pos(' ', text);
      goto 1;
    end
  end;
  writeln(text);

end.