Помогите с информатикой!!! Кто понимает? Нужно преобразовать массив. (написать программу на паскале).

var i, j, n, b, k: Integer;
a: array [1..100,1..100] of integer;
h, c: array [1..100] of integer;
begin
write ('n= ');
readln (n);
writeln ('Исходный массив ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random (10);
write (a[i,j]:3);
if a[i,j]=0 then h[i]:=1;
c[i]:=a[i,1];
end;
writeln;
//writeln (h[i]:5);
end;
writeln;
writeln ('1. Удалить те строки, в которых встречаются нулевые элементы.');
for i:=1 to n do
begin
if h[i] = 0 then
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end;
writeln;
writeln ('2. Отсортировать элементы первого столбца по возрастанию.');
//for i:=1 to n do writeln (c[i]:3);
for i:=1 to n do
for j:=1 to n do
if c[i] < c[j] then
begin
c[n+1]:=c[i];
c[i]:=c[j];
c[j]:=c[n+1];
end;
for i:=1 to n do a[i,1]:=c[i];
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
writeln ('3. В последним столбце прибавить число b ко всем элементам ');
writeln ('после k-го элемента (b и k ввести с клавиатуры).');
write ('b= (от 1 до 20) = ');
readln(b);
write ('k= (от 1 до ',n-1,') = ');
readln(k);
for i:=1 to n do
begin
for j:=1 to n do
if (i > k) and (j = n) then write (a[i,j]+b:3)
else write (a[i,j]:3);
writeln;
end;
end.

Интересно, в каких учебных заведениях мучают такими задачами? Это не похоже на школьную информатику.