Дан массив. Поменять местами второй и пятый элементы

uses crt;
const n=10;
var a : array[1..n] of integer;
    i : integer;
    k : integer;
begin
  randomize;
  for i:=1 to n do a[i]:=random(10)+1;
  writeln('До изменения');
  for i:=1 to n do write(a[i],' ');
  k:=a[2];
  a[2]:=a[5];
  a[5]:=k;
  writeln;
  writeln('После изменения');
  for i:=1 to n do write(a[i],' ');
end.

program name;
uses crt;
 
var
b,i,c,n:integer;
a:array [1..100] of integer;
begin
writeln('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ:');
  readln(n);
  for i := 1 to n do a[i] := Random(25);
  writeln('Èñõîäíûé ìàññèâ:');
  for i := 1 to n do write(a[i]:4);
c:=a[2];
a[2]:=a[5];
a[5]:=c;
writeln;
writeln('ïðåîáðàçîâàííûé ìàññèâ');
for i:=1 to n do
write(a[i]:4);
end.

program user;
uses crt;
var a:array[1..50,1..50] of real;
    n,m,i,j,k:byte;
begin
 clrscr;
 writeln('Ââåäèòå êîëè÷åñòâî ñòðîê ìàòðèöû');
 readln(n);
 writeln('Ââåäèòå êîëèåñòâî ñòîëáöîâ ìàòðèöû');
 readln(m);
 writeln('Ââåäèòå ýëåìåíòû ìàòðèöû');
 for i:=1 to n do
  for j:=1 to m do
  begin
   write('a[',i,',',j,']= ');
   readln(a[i,j]);
  end;
  writeln;
  writeln('Äàííàÿ ìàòðèöà');
  for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:7:2);
   writeln;
  end;
  writeln;
  writeln('Êîëè÷åñòâî ïîëîæèòåëüíûõ ýëåìåíòîâ â êàæäîé ñòðîêå ìàòðèöû');
  for i:=1 to n do
  begin
   k:=0;
   for j:=1 to m do
    if a[i,j] > 0 then
   inc(k);
   if k>0 then writeln('Ñòðîêà ',i,' ïîëîæèòåëüíûå ýëåìåíòû åñòü')
   else writeln('Ñòðîêà ',i,' ïîëîæèòåëüíûõ ýëåìåíòîâ íåò');
  end;
end.

uses crt;
const m = 5;
var a       : array [1..m , 1..m] of integer;
    i,j,Sum : integer;
begin
  Sum:=0;
  randomize;
  for i:=1 to m do begin
    for j:=1 to m do begin
      a[i,j]:=random(7)+1;
    end;
  end;
  writeln('Сформированная матрица');
  for i:=1 to m do begin
    for j:=1 to m do begin
      if (i=j) and (a[i,j] mod 10 = 7) then Sum:=Sum+a[i,j];
      write(a[i,j]:3);
    end;
    writeln;
  end;
  if Sum=0 then writeln('Таких чисел нет')
  else writeln('Сумма равна , ',Sum);
end.