Помогите дописать ввод и вывод в задаче на паскале!!! Пожалуйста помогите!!!

Чорт. Кинул глазом, и не сразу заметил в чем подвох =) Вы за кого нас принимаете? Этот аццкий код не будет работать по вашему условию. Вы там буквы перепутали. Вместо a[k, m] нужно писать a[i, j].
Через пару минут набросаю вам правильноработающую прогу =)

Program Accki_kod;
var k,m,i,j:integer;
a[0..k,0..m], b[0..k], n, s:real;
begin
writeln("Введите количство строк);
readln(k);
writeln("Введите количство столбцов);
readln(m);
for i:=0 to k do
for j:=0 to m do
begin
writeln("Введите a[",i,",",j,"]");
readln(a[i,j]);
end;
//это мы сейчас инициализировали (наполнили значениями) двумерный массив.

for i := 0 to k do       //вывод заполненного двумерного массива
begin
for j := 0 to m do
writeln(a[i,j]);
writeln();
end;

writeln("Введите магическое число n");
readln(n);

for i := 0 to k do   // ваш главный цикл, измененный мной.
begin
s := 0;
for j := 0 to m do
 if a[i, j] < n then
s := s + a[i, j];
b[i] := s;
end;

for i := 0 to k do       //вывод заполненного одномерного массива
writeln(b[i]);