У меня вот такой код:
помогите перевести его в равнофункциональный на Basic

Turbo Basic 1.0

проблема у меня не в строчке а вот в этом куске, а точнее с оформлением циклов на бейсике

как цикл for j:=i downto curr+1 do на бейсике выглядеть будет,
и еще заминочка вышла вот в этой строчке
inc(curr); //увеличивает переменную curr на единицу(если не ошибаюсь),
а в бейсике будет curr+1 вот так ,что ли или в бейсике есть аналог этой команды?

Я конвертировал программу с паскаля на бейсик, но как всегда без одного НО не обошлось, незапускаеться она, что я не так сделал вот, что у меня получилось:
Подскажите как мне ошибку исправить.

Вот отладил вроде как мог, но у меня получилось так, что матрица выводится в любом
случае
просто в перевернутом виде, причем если элементы второй строки не отридцательны то
вместо них выводятся нули т.е ввожу матрицу 1 1 , получаеться 0 0,
2 2 1 1
ввожу 1 1 , получаеться -2 -2
-2 -2 1 1
а на паскале у меня код выполняет сортировку таким образом, что если в столбце матрицы
встречается отридцательный элемент, то он перемещаеться вначало этого столбца, без изменения других элементов столбца(хотелось бы, что б на бейсике то же самое было).
Уже вродебы построчно сверял я паскалевский вариант кода выполняющий
сортировку с кодом на бейсике выполняющим такое действие, вродебы все ОК, но вот
почему поразному работает, может такая сортировка на бейсике имеет совсем другой
алгоритм??? Или я снова что то не так сделал(вродебы каждую строчку просмотрел)?

Код на бейсике после отладки

cls
print "Введем матрицу A(2 x 2):"
print " "
let n=2
dim a(n,n)
for x=1 to n
for y=1 to n
print "A(";x;",";y;") = ";
input a(x,y)
next y
next x
cls
print ""
for p=1 to n
let curr=0
for x=1 to n
if a(x,p)<0 then
let t=a(x,p)
end if
next x
for y=x to curr+1 step-1
let a(y,p)=a(y-1,p)
next y
let curr=curr+1
let a(curr,p)=t
print "Отсортированная матрица:"
print " "
next p
for x=1 to n
for y=1 to n
print a(x,y);
next y
print " "
next x

это небольшое пояснение к моему предыдущему ответу(к самому началу)
Вы не особо обращайте внимания на пример вводимой матрицы, и пример какую программа
выводит, я когда писал ответ,оформление матриц выглядело нормально, а после опубликования
поздвигалось все, как хотело :))