编译通过运行不了，求解

用 delphi 编写一个输出除去输入字符串中所有空格的串的程序（我编写的程序编译通过了，但是不知道为什么运行就会出错，无法运行）
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:string;
    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.