Матрица в qbasic

[КристинаГузиева]

Здравствуйте! пожалуйста помогите составить программу, срочно надо, а у самой не получается
Составить структурную схему алгоритма и программу на языке БЕЙСИК:
1. Ввести матрицу А размером 5*5
2. Найти S - сумму элементов, расположенных на главной диагонали матрицы А
3. Образовать одномерный массив Y из элементов 1 и последней строки матрицы А
4. Упорядочить элементы каждого столбца матрицы А в порядке убывания
5. Вывести на печать: исходную матрицу А и S, массив Y, матрицу А после сортировки.

REM variant 2 
DIM A(5, 5) 
FOR I = 1 TO 5 
FOR J = 1 TO 5 
A(I, J) = FIX(RND * 100 - 50) 
NEXT J 
NEXT I 
PRINT "MATRICA A" 
FOR I = 1 TO 5 
FOR J = 1 TO 5 
PRINT A(I, J); 
NEXT J 
PRINT 
NEXT I

что делать дальше?

[Stilet]

DIM A(5, 5) 
dim y(10)
k=1
FOR I = 1 TO 5 
FOR J = 1 TO 5 
A(I, J) = FIX(RND * 100 - 50) 
'Образовать одномерный массив Y из элементов 1 и последней строки матрицы А
if i=1 or i=5 then
 y(k)=a(i,j)
 k=k+1
end if

'Найти S - сумму элементов, расположенных на главной диагонали матрицы А
if i=j then
 s=s+a(i,j)
end if
NEXT J 
NEXT I

Это с потолка, в бейсике не работал давно.