Viết phương trình nhập vào một xâu , kiểm tra xâu đó có phải là xấu đối xứng không

uses crt;
var i,x:byte;
    s,p:string;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   x:=length(s);
   p:='';
   for i:=x downto 1 do p:=p+s[i];
   if s=p then write('La xau doi xung') else write('La xau khong doi xung');
   readln
end.

program bai_giai;
uses crt;
var s:string;
    i,kt:byte;
begin
    clrscr;
    write('Nhap xau: ');  readln(s);
    kt:=1;
    for i:=1 to length(s) div 2 do
        if s[i]<>s[length(s)-i+1] then
            begin
                kt:=0; break;
            end;
    if kt=1 then write('DOI XUNG')
        else write('KHONG DOI XUNG');
    readln;
end.