Массивы + процедура

[mexx1337]

Помогите решить такую задачу :
Случайным образом заполняются 2 массива .выполнить сортировку массивов a u b по возрастанию и попарно сложить полученные массивы (т.е. a1+b1,a2+b2...),получив новый массив С. Это сделать Используя процедуры заполнения ,вывода ,сортировки ,формирования нового массива из 2 текущих по правилу.. После выполнения каждой процедуры желательно вывести промежуточные результаты...

Помогите плиз!
Заранее большущее спааасибо!

[phomm]

помогают с Вашим кодом , а не предоставляя Вам код, ну а если Вам помочь полностью программой - то обращайтесь во фриланс

[mexx1337]

Вот написал ,но не работает почему то ;(
Исправьте плиз)

program z1;
type arr=array[1..100] of integer;
var a,b,c:arr;
n:integer;
procedure sort(var a:arr);
var k,i,j,min:integer;
begin
for i:=1 to n-1 do begin min:=i;
for j:=j+1 to n do
if a[j]<a[min] then min:=j;
k:=a[i];
a[i]:=a[min];
a[min]:=k;
end;
end;
procedure zapoln(var a:arr);
var i,k:integer;
begin
for i:=-1 to k do
a[i]:=trunc(10+(50-10+1)*random);
end;
procedure vyvod(var a:arr);
var i:integer;
begin
for i:=1 to n do write(a[i],'     ');
writeln;
end;
procedure form (var c:arr);
var i:integer;
begin
for i:=1 to n do c[i]:=a[i]+b[i];
end;
begin
writeln('n=?');
readln(n);
zapoln(a);zapoln(b);
vyvod(a);vyvod(b);

sort(a);sort(b);
vyvod(a);vyvod(b);

form(a);form(b);
vyvod(a);vyvod(b);

readln;
end.

[phomm]

Сообщение от mexx1337

program z1;
type arr=array[1..100] of integer;
var a,b,c:arr;
n:integer;
procedure sort(var a:arr);
var k,i,j,min:integer;
begin
for i:=1 to n-1 do begin min:=i;
for j:=j+1 to n do
if a[j]<a[min] then min:=j;
k:=a[i];
a[i]:=a[min];
a[min]:=k;
end;
end;
procedure zapoln(var a:arr);
var i,k:integer;
begin
for i:=-1 to k do
a[i]:=trunc(10+(50-10+1)*random);
end;
procedure vyvod(var a:arr);
var i:integer;
begin
for i:=1 to n do write(a[i],'     ');
writeln;
end;
procedure form (var c:arr);
var i:integer;
begin
for i:=1 to n do c[i]:=a[i]+b[i];
end;
begin
writeln('n=?');
readln(n);
zapoln(a);zapoln(b);
vyvod(a);vyvod(b);

sort(a);sort(b);
vyvod(a);vyvod(b);

form(a);form(b);
vyvod(a);vyvod(b);

readln;
end.

красным отмечены явные косяки
также Вы неправильно передаёте массивы в процедуры, у Вас и формальный параметр(имя массива, используемое в процедуре) процедуры и фактический передаваемый массив имеют подобные имена, явно косячите в этом...
ну и для массивов которые передаете в процедуру нумерацию индексов лучше сделать так, чтобы не ошибиться for i := low(passedarr) to high(passedarr)

процедура form вообще непонять чего и где.. передаем какой-то массив, складываем его ещё с каим-то массивом, вобщем, тотальная путаница в именах - в глобальных и внутренних процедурных