Паскаль sqrt проблема

Program program7;
var a : array[1..3000] of integer; 
k,n,i,e: integer;   
r:real;      
begin
randomize;
writeln ('Vvedite N:');
readln (N);
for i:=1 to N do          
A[i]:=random(41)-20;          
for i:=1 to 10 do           
write (a[i],' ');
sqrt(a[i]);
writeln(r);
 
end.

for i:=1 to n do
write(sqrt(a[i]),' ');

A[i]:=random(41)-20;

for i:=1 to n do
if(frac(sqrt(a[i]))=0)and(trunc(sqrt(a[i]) mod 2=0) then
write(a[i],' ');

Program program7;
uses crt;
var a : array[1..3000] of integer;
    k,n,i,t: integer;
begin
clrscr;
randomize;
writeln ('Vvedite N:');
readln (N);
writeln('Исходный массив:');
for i:=1 to N do
 begin
  A[i]:=random(100);
  write (a[i],' ');
 end;
writeln;
writeln;
writeln('Полные квадраты четных чисел:');
k:=0;
for i:=1 to n do
if frac(sqrt(a[i]))=0 then
 begin
  t:=trunc(sqrt(a[i]));
  if t mod 2=0 then
   begin
    write(a[i],' ');
    k:=k+1;
   end;
 end;
writeln;
if k=0 then write('Полных квадратов четных чисел нет')
else write('Количество полных квадратов четных чисел=',k);
readln
end.