1 - файлы 2 - Сортировка массива, 2 задачи Опции

[FENIX]

Помогите, плиз, решить следущее:

1) Сравнить два файла с точностью до слов (без учета неотображаемых символов и пробелов между словами). Совпадающие слова вывести в третий файл, несовпадающие слова в четвертый, а их количества на экран.

2) Упорядочить методом прямого включения по возрастанию только положительные элементы массива, оставив остальные эл-ты на своих местах. Напечатать индексы эл-ов, оставшихся на местах.

Вот мой исходник проги, но она работает не совсем правильно. Если запустить, то прога сортирует + эл-ты по блокам, а не весь массив (после запуска станет понятно, почему работает неправильно).
Как ее доделать (или переделать совсем), чтобы все было ОК?

Код

Program Lab;
Uses Crt;

Type TMas = array[1..30] of integer;

Var i,n : integer;
   A, B : TMas;

Procedure Sort(Var A : TMas);
Var i,j,x : integer;
Begin
  For i:=2 to n do
  begin
     x:=A[i];
     j:=i-1;
     If x > 0 then
        While (j>0) and (x<=A[j]) do
        begin
           A[j+1]:=A[j];
           Dec(j);
        end;
        A[j+1]:=x;
  end;
end;

BEGIN
ClrScr;
Write('Vvedite N=');
readln(n);
Writeln('Vvedite isxodnyi massiv:');
  For i:=1 to n do
  begin
     write('A[',i,']=');
     readln(A[i]);
  end;

Writeln;
Writeln('Otsortirovannyi massiv:');
Writeln;
For i := 1 to n do writeln('A[',i,']=',A[i]);
Writeln;
Writeln('Homepa elementov, ostavshixsya na svoix mestax:');
For i := 1 to n do
If A[i] < 0 then Writeln(i);
readln;
END.