Рюкзаки Pascal

[Илкин]

2 дня осталось помогите пожалуйста(((((

[Илкин]

Uppppppppp

[Mad_Cat]

Илкин Тебе сюда

[Илкин]

Ребят где ошибка завтра утром сдавать пожалуйста((

Program rukzaki;
uses crt;
Var v1,v2,x : real; i,j,n: byte; a: array [1..250] of real;
Begin
writeln ('Введите количество вещей');
readln (n);
 For i:=1 to n do
  begin
   writeln ('введите вес вещи №',i);
   readln (a[i]);
  end;

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;


v1:=0; v2:=0;
for i:=1 to n do
 begin
   if v1<v2 then
    begin
     v1:=v1+a[i];

    end
   else
    begin
     v2:=v2+a[i];

    end;
 end;
 writeln('вес первого рюкзака ', v1);
 writeln('вес второго рюкзака ', v2);
 end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.