Все элементы массива до минимального элемента переписать в массив В - Turbo Pascal

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

Даны 3 задачи, к ним нужно составить блок схему и написать программу на паскале.

1.Дан массив А(25). Все элементы до минимального элемента переписать в массив В, элементы после максимального в массив С.

Помогите пожалуйста! Нужен код на паскале(желательно с описанием переменных) и блок-схему.

Решение задачи: «Все элементы массива до минимального элемента переписать в массив В»

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

program mas;
uses crt;
 
var A:array[1..25] of integer;
     B:array[1..25] of integer;
     C:array[1..25] of integer;
 
    i,j,min,mini,max,maxi:integer;
begin
    clrscr;
    writeln('vvedite elementi massiva');
    for i:=1 to 25 do
    begin
       write('A[',i,']=');
       readln(A[i]);
    end;
    min:=a[1];
    mini:=1;
    for i:=1 to 25 do
    begin
       if (a[i]<min)then 
       begin
          min:=a[i];
          mini:=i;
       end;
    end;
    max:=a[1];
    maxi:=1;
    for i:=1 to 25 do
    begin
       if (a[i]>max)then 
       begin
          max:=a[i];
          maxi:=i;
       end;
    end;
    for i:=1 to mini do
       b[i]:=a[i];
    j:=1;
    for i:=maxi to 25 do
    begin
       c[j]:=a[i];
       j:=j+1;
    end;
    writeln('massiv B:');
   for i:=1 to mini do
    begin
       write(B[i]);
    end;
   writeln('massiv C:');
   for i:=maxi to 25 do
    begin
       write(C[i]);
    end;
 
readln;
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Выводит сообщение Введите элементы массива.
Считывает 25 элементов массива A и сохраняет их в массиве B.
Находит минимальный элемент в массиве A и сохраняет его и его позицию в массиве B.
Находит максимальный элемент в массиве A и сохраняет его и его позицию в массиве B.
Копирует все элементы массива A от минимального до максимального в массив C.
Выводит сообщение Массив B:.
Выводит каждый элемент массива B.
Выводит сообщение Массив C:.
Выводит каждый элемент массива C.
Выводит сообщение Окончание.