Матрицы Опции

[MEDJIK]

Пивет всем. Помогите кто могёт. Нужно составить матрицу , а затем удалить
из неё i-ю строку и j-столбец. Зарание благодарю.

[trminator]

Так что ковыряться-то? Он же и спрашивал. Давненько, между прочим. Я ему тогда посоветовал посмотреть еще в какой-то теме, тем дело и закончилось. А этот бедолага оказывается за все это время ни строчки ни написал. Наверное, времени нет, жена, дети, работа...
На вот, бедняга, готовую программу. Может, она тебе чем и поможет

Код

const N = 5;
var a    : array[1..N, 1..N] of integer;
   i, j, x, y : integer;
begin
 for i:=1 to N do
    for j:=1 to N do read(A[i,j]);

 readLn(x, y);
 for i:=1 to N do
    for j:=x to N-1 do
    A[i,j]:=A[i,j+1];

 for i := y to N-1 do
   for j:=1 to N do
   A[i,j]:=A[i+1,j];

 for i:=1 to N-1 do begin
   for j:=1 to N-1 do
     write(A[i,j]:5);
   writeLn
 end;
end.

Если ошибки есть - не судите слишком строго, времени на нее ушло минут пять, не больше