Массив: Вывести на экран минимальное значение среди положительных элементов массива и максимальное - среди отрицательных элементов - Pascal

Формулировка задачи:

Дан целочисленный массив с неповторяющимися элементами, сформированный пользователем. Вывести на экран минимальное значение среди положительных элементов массива и максимальное значение среди отрицательных элементов. Поменять эти элементы местами и вывести новый массив. ни чего не получается =((((

Решение задачи: «Массив: Вывести на экран минимальное значение среди положительных элементов массива и максимальное - среди отрицательных элементов»

Листинг программы

Uses Crt;
Var A:array[1..100] of integer;
    i,n,imax,imin,t:integer;
Begin
    ClrScr;
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    ClrScr;
    writeln('Исходнный массив');
    For i:=1 to n do
     write(A[i]:4);
    writeln; 
    For i:=1 to n do
     if A[i]>0 then break;
    if A[i]>0 then imin:=i;
    For i:=imin+1 to n do
     if (A[i]>0)and(A[i]<A[imin]) then imin:=i;
    if imin>0 then writeln('Min = ',A[imin])
     else writeln('Нету положительных');
    For i:=1 to n do
     if A[i]<0 then break;
    if A[i]<0 then imax:=i;
    For i:=imax+1 to n do
     if (A[i]<0)and(A[i]>A[imax]) then imax:=i;
    if imin>0 then writeln('Max = ',A[imax])
     else writeln('Нету отрицательных');
    if (imax>0)and(imin>0) then
    Begin
      writeln('Преобразованный массив');
      t:=A[imin];
      A[imin]:=A[imax];
      A[imax]:=t;
      For i:=1 to n do
       write(A[i]:4);
    End;
    readln;
End.

Объяснение кода листинга программы

В начале кода подключается библиотека Crt, которая предоставляет функции для работы с памятью.
Затем объявляются переменные: A - массив целых чисел, i - счетчик элементов массива, n - количество элементов в массиве, imin - минимальное положительное значение в массиве, imax - максимальное положительное значение в массиве, и t - временная переменная для хранения значения, которое будет заменено на imax.
Далее происходит инициализация массива A и вывод его элементов на экран.
Затем выполняется цикл, в котором проверяется каждый элемент массива A. Если элемент положительный, то он записывается в переменную t, а значение i увеличивается на 1. Если все положительные элементы были записаны, то выводится сообщение Нету положительных.
После этого выполняется еще один цикл, в котором проверяется каждый элемент массива A. Если элемент отрицательный, то значение i увеличивается на 1. Если все отрицательные элементы были записаны, то выводится сообщение Нету отрицательных.
Если в массиве есть и положительные, и отрицательные элементы, то выполняется третий цикл, в котором обновляются значения элементов массива A. Значение t записывается в элемент с индексом imin, а значение imax записывается в элемент с индексом i. Значение i увеличивается на 1. Значение t затем записывается в элемент с индексом i.
В конце кода выводится сообщение Преобразованный массив и выполняется вывод на экран элементов массива A.
Конец программы.