Obraceni retezce – Pascal – Fórum – Programujte.com

pls prosim o pomoc s touto procedurou... mam zadat text a pak mi ho to má vypsat zpet v opacnem poradi napr. zadam Adam a vypise madA... pro vas to bude asi hracka ale ja sem zacatecnik
zacal jsem takhle:

procedure Obrat(var s:string);

var x:array of string;

    i,j:byte;

begin

  for i:=1 to 100 do  begin

  for j:=length(retezec) downto 1 do

  x[i]:=copy(retezec,j,1);

  end;

  end;

Chceš obracet jeden string nebo nějaké pole?

Předně musíš z té procedury nějak dostat výsledek ven. Nejlépe tak, že z ní uděláš funkci: function obrat(s:string):string;
Pak si v ní deklaruj jeden lokální string. Ten na začátku funkce vyprázdni (pomocný:='';).
Pak ber postupně znaky od konce vstupního řetězce a připojuj je na konec toho pomocného. Počet znaků v řetězci ti dá funkce Length, pro zpětný průchod použij cyklus For se slovem Downto místo To.
Nakonec ten pomocný řetězec vrať jako výsledek funkce.

Stačí takhle?

diky uz mi to jede