where is my mistake

var a:array[1..1000000] of byte;
i:integer;
e,m:real;
begin
e:=o.0001;
read(a[i]);
m:=sqrt(a[i]);
write(m);
end.

Use int64 or extended instead of byte (line 1)