Модуль из 2 задач (Pascal)

[логарифм]

1. Подсчитать сумму элементов , попадающих в заданный интервал, в данном прямоугольном массиве (размерность которого задается с клавиатуры), а элементами которого являются все целые числа.
2. Найти максимальный элемент в каждой строке и записать их в новый массив.
Оба задания нужно сделать через процедуры и функции и включить в модуль, дабы получилась одна программа.
Вообще хз(((((

[Stilet]

Без проблем.
Для начала освой прием ввода данных в массив.
http://uchinfo.com.ua/mail/mail_9.html
http://www.roman.by/r-93559.html
Ну и так далее. Т.е. читай про двумерные массивы в паскале.

[логарифм]

я вот про процедуры и функции не понимаю

[Stilet]

А ты сначала без них сделай - тут уже работы вагон

[логарифм]

а как здесь вот сделать поиск максимального элемента?
program two;
const
ROW=3;
COL=5;
var
a:array[1..ROW,1..COL] of integer;
s:array[1..ROW] of integer;
i,j:integer;

begin
writeln('Vvedite massiv');
for i:=1 to ROW do
begin
write('->');
for j:=1 to COL-1 do
read(a[i,j]);
readln(a[i,COL]);
end;
writeln('Vash massiv');
for i:=1 to ROW do
begin
for j:=1 to COL-1 do
write (a[i,j]:4);
writeln(a[i,COL]:4);
end;
for i:=1 to ROW do
for j:=1 to COL do
;
writeln('______');
for j:=1 to ROW do
write(s[j]:4);
writeln;
readln;
end.