Ошибка. НЕ МОГУ ВСТАВИТЬ столбец В ЗАДАЧУ КОТОРАЯ ВЫВЕДЕТ СТОЛБЕЦ ИЗ ЕДИНИЦ ПОСЛЕ ЧИСЛА к.

[Диас_]

Индивидуальное задание Matrix69: Дана матрица размера M*N и целое число К(1<K<M). Перед строкой матрицы с номером К вставить столбец из единиц.


program d18;
var
a,b:array [1..100,1..100] of integer;
i,j,n,s,k,t:integer;
begin s:=1; t:=1;
writeln('Введите размер матрицы');
read(n);
writeln('введите ',n,'x',n,' элементы матрицы');
for i:=1 to n do begin
for j:=1 to n do
if j:=1 then read(a[i,j+1]) read(a[i,j]);end;
writeln('Полученный массив');
for i:=1 to n do begin
for j:=1 to n+1 do write(a[i,j], ' ');
writeln; writeln(' '); end;
for i:=1 to n do begin
for j:=1 to n do
if (a[j,i]>0) then k:=k+1;
if k=n then
if (1<>k) and (k<>n) then begin
end;
end;
write(b[i,j], ' ');
writeln
end.

[Valio]

После создания и заполнения матрицы будет както так:

For i := 1 Do a[k-1, i] := 1;

К чему вообще был приведён код непонятной программы?

адд: хотя это не совсем вставить....