Паскаль. вывести на экран все простые числа до k. число k вводится с клавиатуры. заранее .

var
a,flag:array[1..10000]of integer;
i,n,k:integer;
begin
readln(k);
for i:=1 to k do
a[i]:=i;
for i:=2 to k do
if flag[i]=0 then
begin
write(a[i],' ');
for n:=i+1 to k do
if n mod i = 0
then flag[n]:=1;
end;
end.