Паскаль. Строки.

[b1otekk]

a) Проверить, или есть данные два слова обратными один от одного, то есть первое читается слева направо так само, как второе справа налево.

[JekaX]

Сообщение от b1otekk

a) Проверить, или есть данные два слова обратными один от одного, то есть первое читается слева направо так само, как второе справа налево.

var
str, str1 : string;
i,j : integer;
bool : boolean;
begin
bool:= true;
writeln('Vvedite slovo #1');
readln(str);
writeln('Vvedite slovo #2');
readln(str1);
j:=Length(str1);
for i:=1 to Length(str) do
begin
if (str[i]<>str1[j]) then
begin
bool:=false;
end;
j:=j-1;
end;
if bool=true then
writeln('Slovo chitaetsya norm')
else
writeln('Nefiga nechitaetsya');
Readln;
end.

[b1otekk]

big thx!