pascal массив

[dante92]

Написал прогу которая считывает числа(вводимые числа неодинаковы) и образует 2 новых числовых вектора:1)вектор из чисел,стоящих в ряду между максимальным и минимальным 2)из прочих чисел.Компилируется но не работает,помогите пожалуйста найти ошибки!Я вобщем то оч плохо понял как работать с массивом так что может и много ошибок))

Program Massyv;
{Работа Дмитриева А.Ю.}
Const
Dim=30;
Type
TVector=Array[1..Dim] of real;
Var
Massiv,Massiv1,Massiv2:TVector;
i,Kolvo,Kolvo1,Kolvo2,NumMax,NumMin :byte;
Max,Min:real;
Begin
Writeln('Задайте количество чисел <= ',Dim,'');
Readln(Kolvo);
Writeln('Введите ',Kolvo,' неповторяющихся чисел');
For I:=1 to Kolvo do
Read (Massiv[i]);
Readln;
Max:=Massiv[1];
Min:=Massiv[1];
For I:=2 to Kolvo do
begin
NumMax:=i;
NumMin:=i;
If Massiv[i]>Max then Max:=Massiv[i]
else
If Massiv[i]<Min then Min:=Massiv[i]
end;
If NumMin<NumMax then
begin
For i:=NumMin+1 to NumMax-1 do
Massiv1[i]:=Massiv[i];
Writeln(Massiv1[i]);
Writeln('');
For i:=1 to NumMin do
Massiv2[i]:=Massiv[i];
Write(Massiv2[i]);
For i:=NumMax to Kolvo do
Massiv2[i]:=Massiv[i];
Write(Massiv2[i]);
end;
If NumMin>NumMax then
begin
For i:=NumMax+1 to NumMin-1 do
Massiv1[i]:=Massiv[i];
Writeln(Massiv1[i]);
Writeln('');
For i:=1 to NumMax do
Massiv2[i]:=Massiv[i];
Write(Massiv2[i]);
For i:=NumMin to Kolvo do
Massiv2[i]:=Massiv[i];
Write(Massiv2[i]);
end;
If (NumMin=NumMax-1) or (NumMax=NumMin-1) then
begin
Writeln('Первый вектор не сформирован');
Writeln('');
For i:=1 to Kolvo do
Massiv2[i]:=Massiv[i];
Writeln(Massiv2[i]);
end;
Readln;
end.

[zmey31313]

Я думаю, что программа работает не корректно начиная вот с этих строк, точнее из -за этих строк

Max:=Massiv[1];
Min:=Massiv[1];
For I:=2 to Kolvo do
begin
NumMax:=i;
NumMin:=i;

[sig_GB]

а мой код ты проверял??

[Базиля]

Оформте код как следует, и в чем собственно проблема? Ибо если я тупо укажу на вашу ошибку в коде и исправлю, особо пользы не будет. Спрашивайте объясним