Ввести с клавиатуры 10 чисел. если квадрат числа меньше 100, напечатать число и его квадрат ( программа паскаль), помогите :(

program sdklvnd;   uses crt; type  mas=array[1..10] of integer; var  a:mas;  z,x,i:integer; begin  for i:=1 to 10 do    begin      writeln('vvedite x');      readln(x);      a[i]:=x;     end;     for i:=1 to 10 do      if (a[i]*a[i]<100) then        writeln(a[i],' ',a[i]*a[i]); end.