Sieb des Eratosthenes : I need to programm the sieve of eratosthenes in Delphi 5 as a school homework till tomorrow.
But I am kind of new to it and we didn't get much informations.

This is what i currently have:

    https://pastebin.com/CtXNxPXi

But there is one problem:
At the end of the last for-"loop"
it says`"if zahl[i] then write(i:8);"`
I suppose it should give out the content but what I need is the following:
It adding the number in the array, if the content of the array is yes, to an edit.

Can anyone help?