Переписать программу с Pascal ABC - VB

Формулировка задачи:

Помогите плиз, нужно программу сделанную на Pascal ABC переделать на VB. Заранее благодарен)

                    Листинг программы
                
 
                        
                          
                    
program Exact2;
uses crt;
var n,m,i,j,k,x:integer;a:array[1..100,1..100] of integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
writeln('Ischodnaja matricha:');readln;
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20)-5;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
 
{sortirovka po strokam}
for i:=1 to n do
for j:=1 to m-1 do
for k:=1 to m-1 do
if a[i,k]<a[i,k+1] then
   begin
     x:=a[i,k];a[i,k]:=a[i,k+1];a[i,k+1]:=x;
   end;
 
{sortirovka po stolbcham}
for j:=1 to m do
for i:=1 to n-1 do
for k:=1 to n-1 do
if a[k,j]<a[k+1,j] then
   begin
     x:=a[k,j];a[k,j]:=a[k+1,j];a[k+1,j]:=x;
   end;
 
writeln('Rezultat:');readln;
for i:=1 to n do
   begin
     for j:=1 to m do
         write(a[i,j]:3);
         writeln;
   end;
readln;
end.

только просмотры, а помочь никто не может(((

Решение задачи: «Переписать программу с Pascal ABC»

textual
                            Листинг программы 
                        
 
                            
                        
Dim n As Integer, m As Integer, i As Integer, j As Integer, k As Integer, x As Integer, s As String
Dim a(1 To 100, 1 To 100) As Integer
 
Private Sub Form_Activate()
n = Val(InputBox("", "n=", 10))
m = Val(InputBox("", "m=", 10))
Print "Ischodnaja matricha: "
Print ""
Randomize Timer
 
For i = 1 To n
  For j = 1 To m
    a(i, j) = 20 * Rnd() - 5
       'Print a(i, j)
       s = s & Str(a(i, j)) & " "
   Next
   Print s
   s = ""
Next
'{sortirovka po strokam}
 
For i = 1 To n
  For j = 1 To m - 1
   For k = 1 To m - 1
     If a(i, k) < a(i, k + 1) Then
        x = a(i, k): a(i, k) = a(i, k + 1): a(i, k + 1) = x
     End If
    Next
   Next
Next
'{sortirovka po stolbcham}
 
For j = 1 To m
  For i = 1 To n - 1
   For k = 1 To n - 1
    If a(k, j) < a(k + 1, j) Then
      x = a(k, j): a(k, j) = a(k + 1, j): a(k + 1, j) = x
   End If
   Next
  Next
Next
 
Print "Rezultat:"
For i = 1 To n
        For j = 1 To m
           s = s & Str(a(i, j)) & " "
       Next
       Print s
       s = ""
Next
 
 
End Sub