Создать программу,которая спрашивает имя пользователя и здоровается

While Pos(' ',S)>0 do Delete(S,Pos(' ',S),1);

program z1;
      var name,text:string;
        i,j:integer;
begin
  writeln('Hello! What is your name?');
  readln(name);                            {Вводим имя}
  writeln('Hi ',name,'! Input your text, please.');    {Вводим свой текст}
  readln(text);
  j:=0;                    {начальное значение}
  for i:=1 to Length(text) do                 {идем от первого символа до значения длины строки}
  begin
    if text[i]<>' ' then begin          {если символ в строке НЕ пробел тогда начинаем цикл}
      inc(j);                          {идем к следующему символу}
      if j<i then text[j]:=text[i];    {сравниваем и убираем пробел}
    end;
  end;
  SetLength(text,j); {изменяем размер строки, теперь он равен j}
  writeln(text);
  readln();    {Для TP не нужен}
end.

program z1;
      var name,text:string;
        i,c,j:integer;
begin
  writeln('Hello! What is your name?');
  readln(name);                            {Вводим имя}
  writeln('Hi ',name,'! Input your text, please.');    {Вводим свой текст}
  readln(text);
  j:=0;
  c:=0;{начальное значение}
  for i:=1 to Length(text) do                 {идем от первого символа до значения длины строки}
  begin
    if text[i]<>' ' then begin          {если символ в строке НЕ пробел тогда начинаем цикл}
      inc(j);                          {идем к следующему символу}
      if j<i then text[j]:=text[i] else inc(c);{сравниваем и убираем пробел}
    end;
  end;
  if c<>0 then writeln('No blanks') else  begin   {проверяем на наличие пробелов}
SetLength(text,j); {изменяем размер строки, теперь он равен j}
  writeln(text);  end;
  readln();    {Для TP не нужен}
end.

var s: string;
begin
  writeln('Hello! What is your name?');
  readln(s);
  writeln('Hi ', s, '! Input your text, please.');
  readln(s);
  if pos(' ', s) = 0
    then writeln('No blanks')
    else  begin
      while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);
      writeln(s)
    end;
  readln
end.