01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Симметрия введённого слова+ / ALEX10

PROGRAM SIMMETRIYA;
USES CRT;
VAR
        A : ARRAY[1..5] OF STRING;
        B : ARRAY[1..15] OF STRING;
        C : ARRAY[1..15] OF STRING;
Z,N,I,J,K,D : INTEGER;
{***************************************************************************}
PROCEDURE VVOD;
BEGIN
   WRITE('                 ‘ЉЋ‹њЉЋ ‘‹Ћ‚ Ѓ“„…Њ ЂЌЂ‹€‡€ђЋ‚Ђ’њ ?');
   READLN(N);
FOR J:=1 TO N DO BEGIN
                 WRITE('                       ‚‚…„€’… ',J:2,'-Ћ… ‘‹Ћ‚Ћ : ');
                 READLN(A[J]);
                 END;
END;
{***************************************************************************}
PROCEDURE RAZBOR1;
BEGIN  J:=0;
FOR I:=1 TO 15 DO BEGIN B[I]:=''; C[I]:='';
                  END;

  FOR K:=1 TO LENGTH(A[D]) DO BEGIN
      B[K]:=A[D,K];
                              END;
FOR K:=LENGTH(A[D]) DOWNTO 1 DO BEGIN
       J:=J+1;
       C[J]:=A[D,K];
                                END;
END;
{***************************************************************************}
PROCEDURE RAZBOR2;
BEGIN
   FOR K:=1 TO LENGTH(A[D]) DO BEGIN
                        IF B[K]=C[K] THEN
                                              Z:=Z+1;
                               END;
IF Z=LENGTH(A[D]) THEN WRITELN('‘‹Ћ‚Ћ ',A[D],' - ‘€ЊЊ…’ђ€—ЌЋ !!!!!')
                  ELSE WRITELN('‘‹Ћ‚Ћ ',A[D],' - Ќ… ‘€ЊЊ…’ђ€—ЌЋ!!!!!'); Z:=0;
END;
{***************************************************************************}
                        BEGIN
                        CLRSCR;
                        VVOD;
                  WHILE D<>N DO BEGIN
                       D:=D+1;
                       RAZBOR1;
                       RAZBOR2;
                        END;

            WRITELN('             ЉЋЌ…– ЏђЋѓђЂЊЊ› !');
            WRITELN('           ‘ЏЂ‘€ЃЋ ‡Ђ ‚Ќ€ЊЂЌ€… !');
                      WRITELN;
                       READLN;
                        END.