Помоги найти ошибку пожалуйста оч срочно

помоги найти ошибку пожалуйста оч срочно
2 задан массив А(М), где М < =15. НА МЕСТО К-го элемента записать сумму элементов с нечет индексами. Размерность массива и номер элемента вводятся по запросу. Вывести исходный и полученный массивы
1 поменять местами K-ю и N-ю строки матрицы B(M,L), где M< =15, L<=20. Количество строк и столбцов матрицы, номера меняемых строк вводятся по запросу. Вывести исходную и получ матрицы program Project2; {$APPTYPE CONSOLE} uses
SysUtils;
Var b: array[1..15, 1..20] of integer;
i, j, m, l, k, n: integer;
begin
writeln('M L K N');
Read(M, L, K, N);
for i:= 1 to M do
for j:= 1 to L do
Read(B[i, j]);
for i:= 1 to L do
begin
j:= B[K, i];
B[k, i]:= B[n, i];
B[n, i]:= j;

end;
readln;
for i:= 1 to m do
begin
for j:= 1 to l do
write(B[i,j]);
writeln;
readln
end;
readln
end.

$APPTYPE CONSOLE}
Var A: array[1..15] of integer;

m, summ, k, i: integer;
begin
writeln('vviite m,k');
readln(m,k);
summ:= 0;
for i:= 1 to m do
begin
writeln('a')
readln(A);
end;
if (i div 2) <> 0 then
summ := summ + aend;
a[k]:= summ;
for i:= 1 to m do
write(a)
end.

  • нет
  • Пробелов нет.
  • {$apptype console}

    const
    N = 15;
    var
    A: array [1..N] of integer;
    m, s, k, c: integer;
    begin
    write('m, k? ');
    readln(m, k);
    s := 0;
    for c:= 1 to m do begin
    write('a[', c, ']? ');
    readln(a[c]);
    end;
    writeln('array:');
    for c := 1 to m do write(a[c], ' ');
    writeln;
    c := 1;
    while c < = m do begin
    inc(s, a[c]);
    inc(c, 2);
    end;
    a[k] := s;
    writeln('result:');
    for c := 1 to m do write(a[c], ' ');
    writeln;
    end.