Müsste so funktionieren.
Zuerst einen Type definieren:
Code:
Type tArray : Array[1..x] of string[1];
laenge ist die Länge des arrays
Delphi-Quellcode:
procedure ausgeben (eingabe : tArray; laenge : integer; var ausgabe : string);
var position: integer;
hilf : string[1];
begin
eingabe := '';
for position := laenge downto 1 do
begin
hilf := eingabe[position] ;
eingabe := concat(eingabe,hilf);
end;
end;
label1.caption := eingabe;