удаление столбцов delphi

[nikita33321]

Здрастуйте
я совершенно забыл как удалять столбцы с условием( помогите пожалуйста

var
  a:array[1..100,1..100] of integer;
  fib1,fib2,fib3,n,m,i,i1,j,j1:integer;
begin
writeln('vvedite n,m');
readln(n,m);
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[',i,j,']');
    read(a[i,j]); {vvod}
   end;
 for i:=1 to n do
  for j:=1 to m do
  begin
   f1:=1;
   f2:=2;
   K:=j;  {запомнем столбец для удаления}
    while a[i,j] > f3 do {сравнение}
     begin
      f3:=f1+f2;
      f1:=f2;
      f2:=f3;
     end;
for i1:=1 to n do  {нов переменные для прохода по массиву}
      for j1:=k to m do
     if a[i,j] = f3 then
    begin
     a[i1,j1]:=a[i1,j1+1];
      m:=m-1;
    end;
end;
{вывод}
writeln('matr');
for i:=1 to n do
 for j:=1 to m do
  writeln ('a[',i,',',j,']=',a[i,j]:5);
end.

что здесь не так? может я ее не правильно вывожу?
p.s.
сори за легкий вопрос но я совсем запутоля

[Chudo4258]

Может так. Попробуй, у меня просто делфи не установлено не могу проверить.

var
  a:array[1..100,1..100] of integer;
  n,m,i,j:integer;
begin
writeln('vvedite n,m');
readln(n,m);

 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[',i,j,']');
    read(a[i,j]); {vvod}
   end;
  
 k:=...{ номер столбца для удаления}
 m:=m-1;
 for i:=1 to n do
  for j:=k to m do
  begin
   a[i,j]:=a[i,j+1];
 end;
{вывод}
writeln('matr');
for i:=1 to n do
 begin
 for j:=1 to m do
  writeln ('a[',i,',',j,']=',a[i,j]:5);
 writeln;
 end;
end.

[nikita33321]

thx но можете еще меня подкорректировать вот я засунул в программу этот алгоритм он удаляет столбцы норм но вот проблема.
если число фибоначчи то удалить столбец
(прогон)

vvedite n,m
2
2
a[11]4
a[12]6
a[21]5
a[22]6
matr
a[1,1]=    6
a[1,2]=    0

a[2,1]=    6
a[2,2]=    0

как убрать эти нули ? если вводишь в первую строчку то он удаляет нормально а вот во вторую получается вот так и тоже самое с последним элементом строки (в трехмерном массиве).....

program fib;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..100,1..100] of integer;
  f1,f2,f3,k,n,m,i,j,i1,j1:integer;
begin
writeln('vvedite n,m');
readln(n,m);
 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[',i,j,']');
    read(a[i,j]); {vvod}
   end;
  for i:=1 to n do
   for j:=1 to m do
    begin
     f1:=1;
     f2:=1;
    while a[i,j]>f3 do
    begin
     f3:=f1+f2;
     f1:=f2;
     f2:=f3;
    end;
   if a[i,j] = f3 then
   begin
   {read(k);}
   k:=j; {столбец}
   m:=m-1;
    for i1:=1 to n do
     for j1:=k to m do
       a[i,j]:=a[i,j+1];
   end;
  end; 
 for i:=1 to n do    {если убрать эту часть (по идее она тут вообще не нужна он вообще не пойми как удаляет(()}
  for j:=k to m do
  begin
   a[i,j]:=a[i,j+1];
 end;
{вывод}
writeln('matr');
for i:=1 to n do
 begin
 for j:=1 to m do
  writeln ('a[',i,',',j,']=',a[i,j]:5);
 writeln;
 end;
 read(k);
end.