Помогите исправить ошибки. Паскаль

[Anastasia12]

Помогите исправить ошибки. Паскаль

Program infa;
Const n = 10;
Var i, j, t, v_min, v_max, i_max, max, i_min, min : Integer;
vector : Array [1..n] Of Integer;

Begin

Randomize;

Write('v_min=');
ReadLn(v_min);
Write('v_max=');
ReadLn(v_max);

For i:=1 To n Do
vector:=Random(v_max-v_min + 1) + v_min;

WriteLn;
For i:=1 To n Do
Write(vector:5);
WriteLn;

max:= vector[1];
i_max:= 1;
min:= vector[1];
i_min:= 1;

For i:=2 To n Do
Begin

If (vector > max) Then
Begin
max := vector;
i_max := i;
End;

If (vector < min) Then
Begin
min := vector;
i_min := i;
End;

End;

WriteLn;
WriteLn('max=', max, ' i_max=', i_max);
WriteLn('min=', min, ' i_min=', i_min);

i := i_min;
j := i_max;

while i<j do begin
t := vector;
vector:=vector[n-i+1];
vector[n-i+1]:=vector[j];
vector[j] := t;
end;


WriteLn;
WriteLn('Полученный вектор:');
For i:=1 To n Do
Write(vector:5);
WriteLn;

End.

 

[Vladimir_S]

Помогите исправить ошибки (Паскаль)

Извольте:

Const
 n = 10;

Var
 i,t,v_min,v_max,i_max,max,i_min,min,i1,i2: Integer;
 vector : Array [1..n] Of Integer;

Begin

 Randomize;

 Writeln('Input data:');
 Writeln('n= ',n);
 Write('v_min= ');
 ReadLn(v_min);
 Write('v_max= ');
 ReadLn(v_max);

 Writeln('Initial vector:');
 for i:=1 to n do
  begin
   vector[i]:=Random(v_max-v_min + 1) + v_min;
   Write(vector[i]:5);
  end;
 WriteLn;

 max:= vector[1];
 i_max:= 1;
 min:= vector[1];
 i_min:= 1;

 for i:=2 to n do
  begin

   if (vector[i]>max) then
    begin
     max := vector[i];
     i_max := i;
    end;

   if (vector[i] < min) then
    begin
     min := vector[i];
     i_min := i;
    end;

  end;

 if min=max then
  Writeln('All elements are equal!')
 else
  begin
   WriteLn;
   Writeln('Output data:');
   WriteLn('max= ', max, ' i_max= ', i_max);
   WriteLn('min= ', min, ' i_min= ', i_min);

   if i_min<i_max then
    begin
     i1:=i_min+1;
     i2:=i_max-1;
    end
   else
    begin
     i1:=i_max+1;
     i2:=i_min-1;
    end;

   for i:=i1 to ((i1+i2) div 2) do
    begin
     t:=vector[i];
     vector[i]:=vector[i2-(i-i1)];
     vector[i2-(i-i1)]:=t;
    end;

   WriteLn('Output vector:');
   for i:=1 to n do
    Write(vector[i]:5);
  end;

 ReadLn

End.

 

[Anastasia12]

спасибо большое