Pascal. Строки

[cudalover]

Вот какая проблема. Есть такое задание:
Даны символы s1,...,s10. Определить количество неверных равенств среди: s1=s10, s2=s9,..., s5=s6

Вот вроде получилось, но только есть одна загвоздка: программа сравнивает не так как в задании, а 1 с 10-м, потом 1 с 9 и т.д., потом берет 2 и сравнивает с 10, с 9 и т.д. и т.п.

Помогите исправить. Вот код:

Program kur1;
uses crt;
var
   str: string[10];
   n1, n2, i: integer;
begin
     clrscr;
     writeln('Vvedite 10 simvolov');
     readln(str);
                 for n1:=1 to 5 do
                 begin
                      for n2:=10 downto 6 do
                           If str[n1] <> str[n2] then
                           i:=i+1;
                 end;
     writeln('Kolichestvo nevernyh ravenstv:',i);
     readln;
end.

[Sazary]

Program kur1;
uses crt;
var
   str: string[10];
   n1, i: integer;
begin
     clrscr;
     writeln('Vvedite 10 simvolov');
     readln(str);
     i := 0;
                 for n1:=1 to 5 do
                 begin
                  If str[n1] <> str[10-n1+1] then
                    i:=i+1;
                 end;
     writeln('Kolichestvo nevernyh ravenstv:',i);
     readln;
end.

[cudalover]

Спасибо!!!