Witam mam napisać program, który sprawdza czy słowo jest palindromem. Teraz moje pytanie jak mam porównać słowo wpisane przez użytkownika czy jest takie same od tyłu ?
if (tekst = (jak zrobić żeby porównywał wyraz wpisany od tyłu?) then writeln('Jest palindromem') else writeln('Nie jest palindromem');
var
tekst:string;
tekst_od_tylu:string;
dlugosc:integer;
i:integer;
begin
writeln('Podaj tekst:');
readln(tekst);
dlugosc:=length(tekst);
for i:=dlugosc downto 1 do write(tekst[i]);
readln;
end.