Программа на паскале через функции

[Necron]

Вообщем нужно написать программу: Вводится двумерный массив произвольного размера,в нём находится последний отрицательный элемент и элемент меньше максимального на заданную величину, ответ вывести в строковом типе. И ещё программа должна быть написана на паскале с использованием функций,это обязательное условие. Прошу помоч

[Stilet]

Это функция ввода массива и вычисления последнего отрицательного

function _input(a,s:byte):string;
var q,w,n:integer;ss:string;
begin
 for q:=1 to a do begin
  for w:=1 to s do begin
   readln(mass[q,w]);
   if mas[q,w]<0 then n:=mas[q,w];
  end;
end;
str(n,ss);
_input:=ss;
end;

Для нее обьяви массив mass, и вызывай так: write(_input(n,m));
Где n,m - размерность массива.

Идея уловима?

[Necron]

Да это я понял ,но у меня в основном проблема была со вторым заданием, найти элемент меньше максимального на заданную величину , проблема конкретно заключается в том что я не могу написать функцию для сортировки методом пузырька двумерного массива, с одномерным проблем нету, а с двумерным никак не получается. ( да ещё я решил использовать сортировку т.к. не имею понятия как иначе найти максимальный элемент, метод пузырька выбрал т.к. он самый простой) Помогите с этим пожалуйста.

[BDA]

max:=-32768;
for i:=1 to n do
	for j:=1 to m do
		if a[i,j]>max then
			max:=a[i,j];
elem:=max-d;
for i:=1 to n do
begin
	if elem=-32768 then
		exit;
	for j:=1 to m do
		if a[i,j]=elem then
		begin
			writeln('Element found');
			elem:=-32768;
			exit;
		end;
end;
if elem<>-32768 then
		writeln('Element not found');

[Necron]

Да это работает но мне бы тоже самое только через функцию...

[BDA]

function max(a:mas):integer;
var
i,j:integer;
begin
max:=-32768;
for i:=1 to high(a) do
	for j:=1 to high(a[i]) do
		if a[i,j]>max then
			max:=a[i,j];
end;


functon search(a:mas;elem:integer):boolean;
var
i,j:integer;
begin
for i:=1 to high(a) do
	for j:=1 to high(a[i]) do
		if a[i,j]=elem then
		begin
			search;=true;
			exit;
		end;
search:=false;
end;


if search(a,max(a)-d) then
	writeln('Found')
else
	writeln('Not found');

Проверьте.
mas - тип массива

[Necron]

Выдаёт ошибку 88 в первой функции на операторе then.

Ещё просьба сделать так чтобы вместо надписи found появлялось именно число которое меньше максимального на заданную величину, и ещё покажите пожалуйста как данные функции вызвать в программе.

[BDA]

Uses CRT;

const
t1=100;
t2=100;

type
mas=array[1..t1,1..t2] of integer;

var
n,m,d,elem,i,j:integer;
a:mas;

function max(a:mas):integer;
var
i,j,tmp:integer;
begin
tmp:=-32768;
for i:=1 to high(a) do
	for j:=1 to high(a[i]) do
		if tmp<a[i,j] then
			tmp:=a[i,j];
max:=tmp;
end;

function search(a:mas;elem:integer):boolean;
var
i,j:integer;
begin
for i:=1 to high(a) do
	for j:=1 to high(a[i]) do
		if a[i,j]=elem then
		begin
			search:=true;
			exit;
		end;
search:=false;
end;

BEGIN
writeln('Input size of matrix and delta');
readln(n,m,d);

for i:=1 to n do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']: ');
    readln(a[i,j]);
  end;
  
for i:=1 to n do
begin
  for j:=1 to m do
    write(a[i,j]:5);
  writeln;
end; 

elem:=max(a)-abs(d);
if search(a,elem) then
	writeln('Found (',elem,')')
else
	writeln('Not found');

readln;
END.

[Necron]

Большое вам спасибо,не знаю что бы я без вашей помощи делал!