Составить программу для ввода в ЭВМ произвольной вещественной квадратной матрицы - PascalABC.NET

Формулировка задачи:

Всем привет. Вторую неделю пытаюсь сделать лабораторку, помогите, плиз.

Составить программу для ввода в ЭВМ произвольной вещественной квадратной матрицы и подсчёта в каждой строке этой матрицы количества элементов со значениями, превышающими заданное S.

(Матрица должна быть НЕ рандомная) Я тут сделал с рандомной, я не знаю как задать нерандомную матрицу, как самому ввести числа. И мне кажется что половина моей программы - это бред какой-то. Помогите, добрые люди. Сессия через неделю!)))

VAR x:array[1..100,1..100] of real;
      i,j,m,n,s:integer;
Begin
  Read(m,n);
  for i:=1 to n do
  for j:= 1 to m do
   x[i,j]:random(10);
  for i:=1 to n do
   begin
     for j:=1 to m do
     write(x[i,j],' ');
     writeln;
   end;
  readln;
  s:=6;
  if x[i,j]:=s then write([i,j]);
  writeln(x[n,m]);
  write(i,j);
end.

Решение задачи: «Составить программу для ввода в ЭВМ произвольной вещественной квадратной матрицы»

Листинг программы

var a:array[1..100,1..100] of integer;
       i,j,m,n,s,k:integer;
begin
 read(m,n);
 for i:=1 to n do
 for j:=1 to m do
 a[i,j]:=random(10);
 for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
 read(s);
for i:=2 to n do
for j:=1 to m do
if a[i,j]>s then inc(k);
write('Количество эдементов, S= ',k);
writeln;
readln;
end.

Объяснение кода листинга программы

Объявляются переменные: массив a размером 100x100 для хранения целочисленных значений, переменные i, j, m, n, s, k для выполнения операций в программе.
Вводятся значения m и n с помощью функции read().
Заполняется массив a случайными целыми числами от 0 до 9 с помощью цикла for и функции random().
Выводятся значения массива a на экран с помощью цикла for и функции write().
Вводится значение s с помощью функции read().
Проверяется условие, если значение элемента массива a больше значения s, то увеличивается значение переменной k.
Выводится количество элементов массива a, которые больше значения s, с помощью функции write() и переменной k.
Вводится символ для завершения работы программы с помощью функции readln().
Программа завершается.