переделать из Pascal ABC в basic

[winona]

const
  n=8;
  m=10;
var
  a: array[1..n,1..m] of integer;
  i,j,tmp,k: integer;
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for k:=1 to m do
    for i:=2 to n do
      for j:=n downto i do
        if a[j,k]>a[j-1,k] then
        begin
          tmp:=a[j,k];
          a[j,k]:=a[j-1,k];
          a[j-1,k]:=tmp;
        end;
  writeln('Óïîðÿäî÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

[nartov55]

' Программа сортирует матрицу по столбцам.
CLS

CONST N = 8
CONST M = 10

DIM A(N, M) AS INTEGER
DIM i, j, tmp, k AS INTEGER

PRINT "Исходная матрица:"
FOR i = 1 TO N STEP 1
	FOR j = 1 TO M STEP 1
		A(i, j) = 1 + INT(RND * 99)
		PRINT USING "####"; A(i, j);
	NEXT j
	PRINT
NEXT i: PRINT

FOR k = 1 TO M STEP 1
	FOR i = 2 TO N STEP 1
		FOR j = N TO i STEP -1
			IF A(j, k) > A(j - 1, k) THEN
				tmp = A(j, k)
				A(j, k) = A(j - 1, k)
				A(j - 1, k) = tmp
			END IF
		NEXT j
	NEXT i
NEXT k

PRINT "Упорядоченная матрица:"
FOR i = 1 TO N STEP 1
	FOR j = 1 TO M STEP 1
		PRINT USING "####"; A(i, j);
	NEXT j
	PRINT
NEXT i: PRINT

END