Computer science task: Can you help me (beginner)?

program Aufgabe5; var eingabeString: string; begin writeln('Gib hier einen Text ein:'); readln(eingabeString); if Length(eingabeString) = 0 then // Überprüfen, ob die Eingabe leer ist begin writeln('Sie haben keine Eingabe gemacht'); exit; end; for var i := 1 to Length(eingabeString) do // Schleife durch jeden Buchstaben der Eingabe und in Großbuchstaben umwandeln begin // Überprüfen, ob…