Задание:удалить каждый столбец, содержащий элемент кратный пяти

var
  Form4: TForm4;
  n,m: integer;
  a: array [0..10,0..10] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm4.Button3Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm4.Button1Click(Sender: TObject);
var
i,j: integer;
begin
Randomize;
n:=strtoint(Edit1.Text);
m:=strtoint(Edit2.Text);
for i:=0 to n-1 do
 for j:=0 to m-1 do
  a[i,j]:=Round(Sin(Random(100))*100);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
with StringGrid1 do
begin
 i:=0;
 for j:=1 to RowCount do
  Cells[i,j]:=IntToStr(j);
 j:=0;
 for i:=1 to ColCount do
   Cells[i,j]:=IntToStr(i);
end;
with StringGrid1 do
 for i:=1 to n do
  for j:=1 to m do
   Cells[j,i]:=IntToStr(a[i-1,j-1]);
end;
 
procedure TForm4.Button2Click(Sender: TObject);
var
i,j,k: integer;
begin
for i:=0 to n-1 do
for j:=0 to m-1 do
 if (a[i,j] mod 5)=0 then
  begin
   for k:=j to m-1 do
   a[i,k]:=a[i,k+1];
   m:=m-1;
   end;
begin
StringGrid2.RowCount:=n+1;
StringGrid2.ColCount:=m+1;
with StringGrid2 do
begin
for j:=1 to RowCount do
Cells[i,j]:=IntToStr(j);
for i:=1 to ColCount do
Cells[i,j]:=IntToStr(i);
end;
end;
with StringGrid2 do
 for i:=1 to n do
 for j:=1 to m do
Cells[j,i]:=IntToStr(a[i,j]);
 end;
end.
 
end.