Ввод двумерной матрицы

[Аелд]

Найти среднее арифметическое тех элементов матрицы, каждый из которых больше находящегося с ним в одной строке элемента главной диагонали, и сумму элементов главной диагонали.

var a:array [1..5, 1..5] of real;
    sa,s:real;
    i,j,k,n:integer;
begin
  writeln('Введите двумерный массив a: ');
  for i:=1 to 5 do
   for j:=1 to 5 do
    readln(a[i,j]);
  writeln('Двумерный массив a: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]);
  end;
  k:=0;
  sa:=0;
  s:=0;
  for i:=1 to 5 do
   begin
    s:=s+a[i,i];
    for j:=1 to 5 do
     if a[i,j]>a[i,i] then
      begin
        inc(k);
        sa:=sa+a[i,j];
      end;
   end;
  sa:=sa/k;
  writeln('Сумма элементов главной диагонали s= ', s:4:2);
  writeln('Среднее арифметическое элементов sa= ', sa:7:2);
end.

пишу код в Pascal ABC.
как сделать так, чтобы ввод элементов в виде
1 2 3 4 5
2 3 4 5 6
...

воспринимался бы как 10 элементов (2 строки, например, и 5 столбов), а не как два элемента-1 и 2?
P.S. Прошу прощения за мое дилетантское описание проблемы

[Serge_Bliznykov]

попробуйте так:

  writeln('Введите двумерный массив a (5X5): ');
  for i:=1 to 5 do begin
     for j:=1 to 5 do
         Read(a[i,j]);
     ReadLn;
  end;

p.s. код не проверял.

p.p.s. у Вас в коде ошибка - используете переменную n, которая нигде не задаётся!

[Аелд]

Спасибо, получилось))