Матрица в qbasic и вычислением главной диагонали

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

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


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)
if i=1 or i=5 then
y(k)=a(i,j)
k=k+1
end if
if i=j then
s=s+a(i,j)
end if
NEXT J
NEXT I

Помогите пожалуйста дальше.