Помогите пожалуйста решить задачу в Turbo Delphi.

> квадратная матрица C(n*m)
По-вашему это квадратная матрица? Квадратная - это C(n*n).

Никита Голоцван, Turbo Delphi отличается от "обычного" только лицензией и отсутствием некоторых возможностей. Примерно как Visual Studio Express отличается от Visual Studio.

Задание 1:
program N73433531_1;
{$APPTYPE CONSOLE}
var
C: array of array of real;
n, i, j: byte;
s: real;
begin
randomize;
n := random(9) + 2;
setlength(C, n, n);
writeln('Дана матрица C(', n, '*', n,'):');
for i := 0 to n - 1 do
begin
s := 0;
for j := 0 to n - 1 do
begin
C[i, j] := random * 40 - 20;
write(C[i, j]:7:2);
s := s + C[i, j]
end;
if not odd(i) then {или if i and 1 = 0 then или if i mod 2 = 0 then}
write(s:9:2);
writeln
end;
readln
end.

Суммы элементов нечётных строк выводятся в последнем столбце сразу за этими строками.
В данной программе индексы нечётных строк чётные, именно поэтому они проверяются на чётность.

Задание 2:
program N73433531_2;
{$APPTYPE CONSOLE}
const n = 10;
var
C: array [1 .. n, 1 .. n] of real;
i, j: byte;
begin
randomize;
writeln('Дана матрица C[10x10]:');
for i := 1 to n do
begin
for j := 1 to n do
begin
C[i, j] := random * 19 + 1;
write(C[i, j]:7:2)
end;
writeln
end;
for i := 1 to n do
for j := i to n do
C[i, j] := 0;
writeln('Преобразованная матрица: ');
for i := 1 to n do
begin
for j := 1 to n do
write(C[i, j]:7:2);
writeln
end;
readln
end.

в обычном делфи
2.
вар
а: аррай [1..10,1..10] оф интежер;
и: интрежер;
....
бегин
Фор и: =1 то 10 до
а [и, и]: =0;
_________
а [и, и] -это главная диагональ
____
У вас че контрольная?? ? все с этими задачами