Составить программу, печатающую все простые числа, не превосходящие данного числа. Спасибо большое.

uses crt;
var k,i,n,s:integer;
istin:boolean;
label 1,2;
beginclrscr;
 k:=1;
writeln ('vvedite chislo');
readln(n);
1:n:=n;
for s:=2 to n-1 do beginif n mod s=0 then beginn:=n+1;
goto 1;
endelse goto 2;
end;
2:while k<100 dobeginistin:=true;
i:=3;
while (i<=trunc(sqrt(n))) and istin doif n mod i=0 thenistin:=falseelsei:=i+2;
if istin then beginwrite(n,' ');
k:=k+1;
end;
 n:=n+2;
end;
readkey
end.