编写一个输出除去输入字符串中所以空格的串的程序。为什么输出的内容和输入的内容一样，好像没有执行if语句一样
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:string;  {a是输入的字符串，b是去掉空格以后的要输出的字符串}
    b:string;
    p1,p2:^char;
    i:integer;
    t:integer=1;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(a);
  i:=length(a);
  p1:=@a;
  p2:=@b;
  repeat
  if p1^<>' ' then
   begin
    p2^:=p1^;
    Inc(p2);
   end;
   Inc(p1);
  until t=i;
  writeln(b);
  readln;
end.