Zeby nie zakladac nowego tematu:
chce spotegowac i wypisac liczby pierwsze z tablicy jednak wyskakuje mi "blablabl exitcode = 215" byc moze jest to zwiazane z typami zmiennych, probowalem zmienic tablice na real ale wtedy nie kompiluje mi sie program:

program asdsadsa;
uses crt;

var i,j,b:longint;
ok:boolean;
a:array[1..650] of longint;
liczby:text;




begin
clrscr;
assign(liczby, 'C:\Users\user\Desktop\liczby.txt');
reset(liczby);
for i:=1 to 650 do
begin
read(liczby,b);
a[i]:=b;
end;
for i:=1 to 650 do
begin
if(a[i]=1) then
ok:=false
else ok:=true;
for j:=2 to a[i]-1 do
if(a[i] mod j=0) then
ok:=false;
if(ok=true) then writeln(a[i]*a[i]);
end;
readkey;
end.



Jesli zostawiam samo wypisanie liczb pierwszych bez ich potegowania wszystko gra. Co robic w tym przypadku?