Определите, является ли одно заданное слово обращением другого заданного слова — Pascal(Паскаль)

program try;
var
s,t,k :string;
i :integer;
begin
t:='';
writeln('Введите 1-е слово');
readln(s);
writeln('Введите 2-е слово');
readln(k);
for i:=1 to length(k) do
t:=k[i]+t;
if s=t then
writeln('1-е слово обращение 2-го слова')
else
writeln('1-е слово не обращение 2-го слова');
end.