При компилировании программы выводит ошибку: "Нет перегруженной подпрограммы с такими типами параметров".

[Oryn1k]

При компилировании программы выводит ошибку:
"Нет перегруженной подпрограммы с такими типами параметров"
выводит данную ошибку на цикле for, вот сама программа:

var j,a,b,n:integer;
i:array[1..100] of integer;
begin
Writeln('Введи четные и не четные числа');
Readln(a,b);//Вводим некое кол-во переменных
for j:=i+1 to n do if a[j] mod 2=0 then 
writeln(a[j],'',b[j])
else
writeln(b[j],'    ',a[j]);
end.

Программа должна выводить четные и нечетные числа и сортировать их,т.е:
Ввод: 2 4 5 3 7 6
Вывод: 6 4 2 7 5 3

[Аватар]

Офигеть. И что по твоему значит a[j] для a: integer. Или for j:=i+1 для i:array[1..100]?

[Вадим Мошев]

Ещё i в программе не задано

[Hitoku]

Видно же, что человек новичок в этом. Вместо того, чтобы упрекать, можно и поинтересоваться, чего человек хочет от программы и объяснить, как надо

[newerow1989]

var j:integer;
    i:array[1..100] of integer;
begin
   Writeln('Введи четные и не четные числа');
   For j:=1 to 100 do
   begin
      Write('i[',j,'] = ');
      Readln(i[j]);
   end;
   For j:=1 to 100 do
      if i[j] mod 2=0 then
         writeln(i[j],' - четное число')
         else
         writeln(i[j],' - нечетное число');
   Readln;
end.

[Oryn1k]

Немного не то, что мне было нужно
1)Я поставил массив до 100 с запасом, вдруг кто-нибудь захочет вести, например, 80 цифр,не обязательно именно 100 вводить.
И да, я не вставил в свой вопрос что должно именно выходить для данной программы, сейчас исправлю.

[Hitoku]

Как-то так можно

var i,j,n,x:integer;
    a:array[1..100] of integer;
begin
  write('Количество элементов массива: '); readln(n);
  writeln('Введи четные и не четные числа');
  for i:=1 to n do
  begin
     write('a[',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;
   write('Чётные числа: ');
   for i:=1 to n do
      if a[i] mod 2=0 then
         write(a[i],' ');
   writeln; write('Нечётные числа: ');
   for i:=1 to n do
      if a[i] mod 2<>0 then
         write(a[i],' ');
   readln;
end.

[Oryn1k]

Да, это и нужно было, спасибо за помощь)