LenJul_2

Var
    S: String;
    I, L: Integer;
    IsSym: Boolean;
Begin
    Write('Введите слово: ');
    ReadLn(S);
    L:= Length(S);
    IsSym:= True;
    For I:= 1 To L Div 2 Do If S[I] <> S[L - (I - 1)] Then Begin
        IsSym:= False; Break;
    End;
    If IsSym Then
        WriteLn('Слово симметрично')
    Else
        WriteLn('Слово не симметрично');
    ReadLn;
End.