Помогите решить задачу Pascal ABC

Помогите решить задачу Pascal ABC
Заполнить массив случайными числами и переставить соседние элементы, поменяв 1-ый со 2-ым, 3-ий с 4-ым и т.д.

  • var
    a: array[1..20] of integer;
    t,x:integer;
    begin
    for t:=1 to 20 do
    a[t]:=random(100);
    write('массив с рандомными элементами:');
    for t:=1 to 20 do write(a[t], ' ');
    writeln;
    for t:=1 to 20 do begin
    x:=a[t];
    a[t]:=a[t+1];
    a[t+1]:=x;
    t:=t+1 end;
    write('переставлены соседние элементы массива:');
    for t:=1 to 20 do write(a[t], ' ');
    readln;
    end.
  • Пиши на форум forumpchelp .ru/forum/25-pascal/
  • а что не выходит?
  • Помогаю по русскому языку: "помогите" не значит "сделайте за меня". Или показывай свои наработки и описывай проблему, или предлагай деньги.