Помогите с Паскалем Часть 2

[LIARH]

Задача 3.

Условие задачи:

Дан одномерный массив Zn. Удалить все элементы массива с четными индексами. Дописать в конец массива умму положительных элементов массива. Отсортировать исходный массив по возрастанию.

Программа:

PROGRAM Arrays3; {заголовок программы}

USES Crt, {Подключение модуля, содержащего процедуры ClrScr и ReadKey}
     UnitArr3;

VAR x, y, z: TArray;
    i, iz: Integer; {для цикла}
    count: Integer;

BEGIN
ClrScr; {процедура очистки экрана}

ReadArrs(x, y); {считываю массив из файла}

count := 0;
iz := 0;
for i := 1 to N do
begin
    if (x[i] > 0) and (count < 5) then begin
                                           Inc(iz);
                                           z[iz] := x[i];
                                           Inc(count);
                                       end;
end; {for i}
count := 0;
iz := 11;
for i := N downto 1 do
begin
    if (y[i] < 0) and (count < 5) then begin
                                           Dec(iz);
                                           z[iz] := y[i];
                                           Inc(count);
                                       end;
end; {for i}

Sort(x, N);

Write('Массив Z: ');
for i := 1 to 10 do Write(z[i], ' ');
WriteLn;

Write('Отсортированный массив X: ');
for i := 1 to N do Write(x[i], ' ');

ReadKey; {процедура ожидания нажатия клавиши (чтобы можно было посмотреть результат)}
END.

Подключение модуля:

Unit UnitArr3;

INTERFACE

    Const N = 10; {размерность массива}

    Type TElem = Integer;
         TArray = array [1..N] of TElem;
    Procedure ReadArrs(var a1, a2: TArray);
    Procedure Sort(var a: TArray; n: Integer); {Процедура сортировки массива по возрастанию}
IMPLEMENTATION

    Procedure ReadArrs(var a1, a2: TArray);
    Var i: Integer;
        f: Text;
    Begin
        Assign(f, 'D:\Arrays3.txt');
        Reset(f);
            for i := 1 to N do
            begin
                Read(f, a1[i]);
                Write(a1[i], ' ');
            end; {for i}
            WriteLn;
            for i := 1 to N do
            begin
                Read(f, a2[i]);
                Write(a2[i], ' ');
            end; {for i}
            WriteLn;
        Close(f);
    End; {ReadArr}

    Procedure Sort(var a: TArray; n: Integer); {Процедура сортировки массива по возрастанию}
    Var i, j, iMin: Integer;
        e: TElem;
    Begin
        for i := 1 to n do
        begin
            iMin := i;
            for j := i+1 to n do
                if a[j] < a[iMin] then iMin := j;
            e := a[iMin];
            a[iMin] := a[i];
            a[i] := e;
        end; {for i}
    End; {Sort}
END.

[biostar]

http://vkontakte.ru/club22127441 - тут всё решим.