Одномерные и двумерные массивы

[Люба19]

1. Обчисліть кількість елементів,які не більше за число А! ( любіе числа)
2. Знайти та надрукувати максимальні за значенням елементи у кожному рядку матриці А

From Stilet:
1. Вычислить кол-во элементов, которые не более числа А (Любые числа)
2. Найти и напечатать максимальные по значениям элементы в каждой строке матрицы

7,2 3,6 4,8 6,3 0
4,5 2,3 -5,1 1,3 8,1
6,3 -2,4 8,4 0 1,6
Помогите пожалуста.

[Stilet]

Любые числа

Комплексные... и т.д.

2)

const
a:array[1..3,1..9] of integer=(
 (7,2,3,6,4,8,6,3,0),(4,5,2,3,-5,1,1,3,8),(6,3,-2,4,8,4, 0, 1,6 )
);
var mx,i,j:integer;
begin
 for i:=1 to 3 do begin mx:=a[i,1];
  for j:=2 to 9 do if mx<a[i,j] then mx:=a[i,j];write(mx:5);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Сойдет?