три задачи

[kuzmich]

привет всем!...
я понемаю то что я по статусу не могу просить, но я забыл паскаль.
помогите решить три задачи:

1) Имеется текстовый файл. Переписать в другой файл его строки, оканчивающиеся заданным словом.
2) Создайте файл Каталог книг. По заданному значению года издания выведите на печать сведения о произведениях, изданных в указанном году.
3) Реализовать в виде модуля набор подпрограмм для выполнения следующих действий над матрицами: 1) нахождение суммы элементов каждой строки данной матрицы; 2) нахождение наибольшего элемента главной диагонали; 3) вывод матрицы в общепринятом виде. Используя этот модуль решить следующую задачу: найти максимальное значение среди сумм элементов каждой строки заданной матрицы. Найти наибольший элемент главной диагонали и заменить его на 0. Полученную матрицу вывести в общепринятом виде.

зарание спасибо!

[ИВэТэшка]

1 задача, остальные за вознаграждение))

program temp;
uses crt;
var f1,f2: text;
w,s: string;
l1,l2,bw,bs,i: integer;
t: boolean;
begin
CLRSCR;
writeln('Enter the word: ');
readln(w);
l1 := length(w);
assign(f2,'text2.txt');
assign(f1,'text1.txt');
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
l2 := length(s);
bw := l1;
bs := l2;
for i := 1 to l1 do
if w[bw] = s[bs]
then
begin
bw := bw-1;
bs := bs-1;
t := true;
end
else
t := false;
if t = true
then
begin
append(f2);
writeln(f2,s);
end;
end;
close(f1);
close(f2);
readln;
end.