Паскаль.Массивы.помогите написать прогу.Срочно нужна помощь!

[Timka_inform]

Файл исходных данных содержит значит величины N, элементов массивов IVEC[1],..IVEC[8], JVEC[1],..JVEC[11], и KVEC[1],..KVEC[7]. Написать и отладить программу, выполняющую:
1) чтение данных из файла.
2) формирование нового массива NEWVEC, включающего все элементы массива IVEC, далее элементы с нечетными номерами массива JVEC, элементы массива KVEC в обратном порядке.
3) определение суммы абсолютный значений всех элементов, начиная с номера N.
4) печать сформированного массива и значения суммы.
5) определения положения в сформированном массиве наибольшего и наименьшего положительных элементов, печать номеров и значений этих элементов.
Алгоритм должен быть параметризован.

[Poma][a]

Где наработки?

Алгоритм должен быть параметризован.

А что это?

[Stilet]

const n=0;
var IVEC[1..8] of integer;jVEC[1..11] of integer; kVEC[1..7] of integer;
     newVEC[1..7+11+8] of integer;
 f:file;j,i,s:integer;
begin
{1) чтение данных из файла.}
 assign(f,'file'); reset(f); 
  blockread(f,IVEC,Sizeof(IVEC));
  blockread(f,jVEC,Sizeof(jVEC));
  blockread(f,jVEC,Sizeof(kVEC));
 close(f);
{2) формирование нового массива NEWVEC, включающего все элементы массива IVEC, далее элементы
 с нечетными номерами массива JVEC, элементы массива KVEC в обратном порядке.}
 for i:=1 to 8 do newvec[i]:=ivec[i];
 i:=9;j:=1; while j<8 do begin
  newvec[i]:=jvec[j]; inc(j,2); inc(i);
 end;
 j:=7; while j>0 do begin
  newvec[i]:=kvec[j]; dec(j);
 end;
{3) определение суммы абсолютный значений всех элементов, начиная с номера N.}
 s:=0; for i:=1 to n do s:=s+abs(newvec[i]);

{4) печать сформированного массива и значения суммы.}
 for i:=1 to 7+11+8 do write(newvec[i]:10);
 write(s:10);
Пятое сам :)
end.

Алгоритм должен быть параметризован.

Куда куда?

[Poma][a]

while j<8 do begin
newvec[i]:=jvec[j]; inc(j,2);

Наверное while j<=11 do

[Stilet]

А-а-а ну да...

[Timka_inform]

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