Hilfe zu Pascal (Delphi)

#include <stdio.h>



// Lediglich eine Ausgabefunktion, unwichtig fuer die Verschluesselung.
void blockausgabe(char *string, int breite)
{
    int position = 0;

    while(*string != '\0') {
        putchar(*string);

        string++;
        position++;
        if(position == breite) {
            putchar('\n');
            position = 0;
        }
    }

    if(position != 0)
        putchar('\n');
}



int main(void)
{
    char ursprung[1000];
    char ziel[1000];
    char eingabe[30];
    int laenge;
    int breite;
    int ursprungs_index;
    int ziel_index = 0;
    int startposition;



    //Ermitteln der noetigen Parameter:
    printf("Bitte geben sie den zu verschluesselnden String ein:\n");
    scanf("%999s", ursprung);

    laenge = strlen(ursprung);
    printf("Laenge = %i\n", laenge);

    printf("\nBitte geben sie die Blockbreite an: ");
    do {
        scanf("%29s", eingabe);
        breite = atoi(eingabe);
    } while(breite < 1);

    printf("\nUrsprung als Block:\n");
    blockausgabe(ursprung, breite);



[COLOR="Red"]    //Fuehre die Kopieraktion so oft wie die Blockbreite angibt durch.
    //Beginne dabei immer von einer anderen Position.
    for(startposition = 0; startposition < breite; startposition++) {
        //Fange am Anfang an, beim 1. Durchgang beim 1. Zeichen,
        //beim 2. Durchgang beim 2. Zeichen usw.
        ursprungs_index = startposition;

        //Kopiere jedes Zeichen in Blockbreitenschritten vom Ursprungs-
        //String in den Zielstring bis das Ende erreicht wird.
        while(ursprungs_index < laenge) {
            //Das eigentliche kopieren von Ursprung in Ziel.
            ziel[ziel_index] = ursprung[ursprungs_index];
            //Erhoehe den Zielindex immer um 1.
            ziel_index++
            //Erhoehe den Ursprungsindex immer um die Breite.
            ursprungs_index += breite;
        }
    }[/COLOR]

    //Schliesst den Zielstring mit einer 0 am Ende ab.
    //Setzt somit das Ende sonst wuerden noch zusaetzlich Zeichen
    //ausgegeben werden (Nullterminierte C Strings).
    ziel[ziel_index] = '\0';



    //Ausgabe des Ergebnisses.
    printf("\nZiel als Block:\n");
    blockausgabe(ziel, breite);
    printf("\nZiel als String:\n%s\n", ziel);

    //Warten am Programmende.
    getchar();
    printf("\nEingabetaste druecken um zu beenden.");

    return 0;
}