Паскаль-Найти сумму максимальных элементов строк матрицы

[tanyhaftv]

Найти сумму максимальных элементов строк матрицы 5х4 в динамическом распределении памяти. (используя указатели)

uses crt;
const n=5;
      m=4;
type
  Tmatr=^TTmatr;{указатель на матрицу}
  TTmatr=array[1..n,1..m] of integer;{тип матрицы}
var
  a:Tmatr;
  i,j,k:integer;
  x:integer;{буфер для обмена при поиске суммы}
  s:integer;{сумма}
begin
clrscr;
randomize;
getmem(a,sizeof(TTmatr));{выделяем память под 1 матрицу}
writeln ('Ishodnaja matrica:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a^[i,j]:=random(50);
    write(a^[i,j]:4);
   end;
  writeln;
 end;
writeln;
{Ищем максимальный элемент в строке и сумму}
s:=0;
for i:=1 to n do
begin
x:= a^[i,1];
  for j:=1 to m-1 do
    if x>a^[i,j+1] then x:=a^[i,j] else x:=a^[i,j+1];
    s:=s+x;
    writeln (s);
end;
 writeln ('S=',S);
freemem(a,sizeof(TTmatr));{высвобождаем память}
readln
end.

[Stilet]

Ну и? В чем проблема?
Почему кросспостим?

[tanyhaftv]

проблем нет уже...

[tanyhaftv]

вот здесь проблема.
С помощью подпрограммы с параметром процедурного типа вывести границы отрезка,на котором функции имеют корень,перебирая отрезки с шагом 0,1 для ln(x)-x+1.8=0 на интервале [2,3] и x^2-1=0 на интервале [1,2].

[Stilet]

Ну а что тут сложного:
Вот первая функция.

   type p=procedure(i:double);

   procedure aga(x:double);
   begin
    if (ln(x)-x+1.8)=0 then writeln(x);
   end;

   procedure f(ap:p);
   var x:double;
   begin
    x:=2;
    while x<=3 do begin    ap(x); x:=x+0.1;end;
   end;
begin
 f(aga);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

По аналогии вторую слепи

[tanyhaftv]

где границы ищутся?

[Stilet]

дык :

x:=2;
    while x<=3

[tanyhaftv]

ap(x),что это?ошибка у меня

f(aga)-ощибка,что-то с типами

[Stilet]

Допиши:

procedure aga(x:double);far;

Давно уж с паскалем не возился

ap(x),что это?

Это вызов процедуры из переменной-параметра процедурного типа

[tanyhaftv]

ничего не выводит.