Графика и динамическая память.

[Гамбит]

Доброго времени суток! Нужна помощь в решении 2 задач.

1 Дана квадратная матрица порядка n(n=10). Упорядочить строки матрицы по убыванию. Заменить все элементы главной диагонали и ниже нее нулями.(нужно сделать с помощью динамической памяти)

2 Построить равнобочную трапецию с заданными основаниями и высотой. Закра-сить ее последовательно разными цветами.

uses Graph;
var x,y,h,k,m:byte;Gm,Gd:integer;
begin
Gd:=detect;
InitGraph(Gm,Gd,'f:\TP\BGI');
x:=5;
y:=5;
h:=5;
k:=10;
m:=6;
Line(x,y,x+10,y);
Line(x+10,y,x+8,y+5);
Line(x+8,y+5,x+2,y+5);
Line(x+2,y+5,x,y);
For i:=0 to 15 do
begin
setfillstyle(0,i);
Floodfill(x+5,y+3,i);
for j:=1 to 1000000 do
end;
CloseGraph;
end;

прога не работает =(

[Namolem]

как не работает?
for j:=1 to 1000000 do на моем компьютере дает задержку в 4мсек.
вместо этого используйте бесконечный цикл с выходом по нажатию клавиши
repeat until keypressed;

[Alt]

repeat until keypressed;
Это требует модуля Crt. А в Crt есть кое-что получше - delay(1000);
Ну правда в ранних версиях он работал не оч правильно, в последних версиях модуля delay исправили.

[Гамбит]

у меня выдаёт ошибку ещё на Uses Graph
просто я мне надо чтоб типа работало, всё равно преподу нофиг =)

[Namolem]

Сообщение от Alt

repeat until keypressed;
Это требует модуля Crt. А в Crt есть кое-что получше - delay(1000);
Ну правда в ранних версиях он работал не оч правильно, в последних версиях модуля delay исправили.

за 1 секунду не проанализировать выходные данные, а если ставить большое значение, нужно слишком много ждать
так что repeat until keypressed удобнее

Гамбит uses Graph,Crt;