Pascal-退出代码 201

Question

我是编码新手，正在尝试创建一个程序来计算并报告用户在 Pascal 中输入的方块数量，但它一直导致名为“exitcode 201”的错误，我找不到源代码的问题。

这是我的代码：

Program Square_counter;
uses crt;
var Input: array[1..100] of Integer;
    Square: array[1..100] of Integer;
    a,i,n,z,c: integer;
    x: real;
begin
clrscr;
writeln('Hello. How many numbers would you like to input? : ');readln(n);
writeln('Input your numbers here: ');
for i:=1 to n do
 begin
  write('Input[',i,']= ');readln(Input[i]);
 end;
for i:=1 to n do
 begin
  x:=sqrt(Input[i]);
  if frac(x)=0 then
   begin
    Input[i]:=Square[z];
    z:=z+1;
   end;
 end;
writeln('Co ',z,' so chinh phuong. Do la: ');
   for c:=1 to z do
   begin
    writeln(Square[c]);
   end;
readln
end.

忽略写行。