Пожалуйста помогите решить задачу, на процедуры и функции.

[RusLotus]

Вот сама задача.
Если не затруднит можно, пожалуйста, с пояснениям от, куда и куда. Что бы я сам смог разобраться.

"{ Даны векторы A[10], B[8], C[6].

Получить y=min A[i].

Все компоненты вектора В, предшествующие первой по порядку компоненте с
наименьшим значением, заменить их квадратами.

Символьной переменной Т присвоить значение TRUE, если компонента
вектора С с наименьшим значением находится в первой половине вектора, и значение FALSE – в противном случае.}"


Заранее благодарен за выделенное время и помощь!!!

[Iceman]

y:=a[1]; for i:=2 to 10 do if a[i]<y then y:=a[i]; остальные пока не пишу если ты достучался. если нет.. напиши тут и я те остальные напишу.

[RusLotus]

Я уже решил, спасибо за помощь . Вот она как выглядит.

var
 A:array[1..10]of real; B:array[1..8]of real; C:array[1..6]of real; y:real;
 T:boolean; i:integer;
 procedure
 Input(var M:array of real);  begin
for i:=0 to high(M) do Read(M[i]);
ReadLn
end;
  function IMin(M:array of real):integer;
var i:integer;    p:real;
begin
    IMin:=1; p:=M[0];
    for i:=1 to high(M) do
    if M[i]<p then
begin
    p:=M[i];
    IMin:=i+1
end end;
begin
Write('A='); Input(A);
Write('B='); Input(B);
Write('C='); Input(C);
y:=A[IMin(A)];
for i:=1 to IMin(B)-1 do
B[i]:=sqr(B[i]);
T:=IMin(C)<=3;
WriteLn('y=',y:9:2);
Write('B=');
for i:=1 to 8 do
Write(B[i]:9:2); WriteLn;
WriteLn('T=',T);
ReadLn
end.