Помощь по турбопаскалю, SOS :З

uses crt; // будет использоваться модуль crt;
cоnst nmax=20; // объявляем констанtу nmax которая равна 20
var c:array[1..nmax,1..nmax] of integer; // объявляем массив с типа integer
n,m,i,j,p:byte; // а так же переменные типа byte
x:integer; // и integer
begin // начало программы (не профессионал точно не зна как назвать это)) )
clrscr; // очищаем кран от записей
randomize; // вклчаем рандом
repeat // начало цикла repeat
write('kolichestvo strok=');readln(m); // выводит надпись "количество строк", после считывает переменную m
until m in [1..nmax]; // условие цикла пока переменная m не входит в диапазон 1 и nmax (конастанка = 20) повторяем
repeat // начало цикла
write('kolichestvo stolbcov=');readln(n); // выводит надпись "количество столбцов" и считывает переменную n
until n in [1..nmax]; // условие для повтора цикла пока n не входит в диапазон от 1 до nmax повторять
writeln('ishodnaya matrica:'); // выводит строку "ИСХОДНАЯ МАТРИЦА"
for i:=1 to m do // начало цикла с повтороением от 1 раза до числа в переменной m
begin // тело цикла
for j:=1 to n do //начало цикла с повтороением от 1 раза до числа в переменной n
begin // тело цикла
c[i,j]:=random(19)+1; // в результате выполнения двух предыдущих циклов этот массив будет наполнен диапазоне заранее заданным в переменныйх m и n по условию что каждый раз будет выбираться случайное число не превышающее 19 и прибовлять к нему 1.
write(c[i,j]:4); // после этот же массив c будет показан на экране
end; // конец цикла
writeln; // выводит пустую строку
end; // конец цикла
writeln; // выводит пустую строку

for p:=1 to n-1 do // запускаеться два цикла
for i:=1 to n-1 do // что бы обработать весь массив
if c[i,1] < c[i+1,1] then // тут идет сравнение если первое число меньше второго то
for j:=1 to m do // запускаем цикл
begin // начало цикла
x:=c[i,j]; // переменной х присваиваем значение ячейки массива
c[i,j]:=c[i+1,j]; // после присваиваем этой ячейка ячейку соседнюю
c[i+1,j]:=x; // а соседней присваиваем x
end; // конец цикла и весь массив от сортирован
writeln('stroki yporyadochenu po pervomu stolbcy:'); // дальше выводиться сообщение на экран о том что строки отсортировано по первому столбцу
for i:=1 to m do // тут начало вывода
begin // уже
for j:=1 to n do // отсортированного
write(c[i,j]:4); // массива
writeln; // выводит пустую строку под каждым элементом
end; // конец вывода матрицы
readln; // ну обычно это ставят для того что бы программа закрывалась по энтеру а не после выполнения операцмя
end. // happy end )

Наймите репетитора (например меня) , он вам все прекрасно обьяснит, расжует и в рот положит.

угу, это работа, работа денег стоит.
ты в ВУЗе бесплатно учишся?