Ввести с клавиатуры 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.