Даны натуральное число m, действительные числа а1,..,a30

[Zhasik]

Даны натуральное число m, действительные числа а1,..,a30
(числа попарно различны). В последовательности а1,...,a30
поменять местами наибольший член и член с номером m.}

program esep1;
uses crt;
Var a:array[1..30] of integer;
m,max:integer;
begin
textcolor(18);
write ('m sandaryn engiz');
writeln;
read(a[m]);
write(a[m]:3);
end;
writeln;
end;
for m:=1 to 30 do begin

[k0tone]

Держи:

Program esep1;
uses crt;
Var a:array[1..10] of integer;
    i,m,n,c,max:integer;
begin
clrscr;
write('Vvedite m=');
readln(m);
writeln('Vvedite elementy massiva^');
for i:=1 to 10 do
 readln(a[i]);
for i:=1 to 10 do
  write(a[i]:4);
for i:=1 to 10 do
  begin
  if max<a[i] then
    begin
      max:=a[i];
      c:=i;
    end;
  end;
writeln;
writeln('maksimalniy element=',max);
writeln('poziciya maksimalnogo elementa=',c);
writeln('chislo m=',a[m]);
n:=a[c];
a[c]:=a[m];
a[m]:=n;
for i:=1 to 10 do
  begin
    write(a[i]:4);
  end;
writeln;
readln;
end.

P.S. Поменяешь кол-во цифр массива с10 на 30 и во всех циклах.