Очень нужно написать 3 программы на Pascal ABC

[Help_me_please_]

№1) Определить последний нечетный элемент массива M и его номер.

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

№3) Определить суммы элементов в каждой строке матрицы за исключением элемента главной диагонали.

Напишите пожалуйста хоть одну программу, мне просто оч нужно сдать до завтра.

[Mad_Cat]

<- контакты там
сделаю за недорого

[gaw4]

3)

uses crt;
const n=5;m=7;
var a:array[1..n,1..m] of real;
s:real;
i,j,ind:integer;
begin

     for i:=1 to n do begin
     s:=0;
        for j:=1 to m do begin
          a[i,j]:=int(random*20)+10;
           if i<>j then s:=s+a[i,j];
           write (a[i,j],'  ');
        end;
          writeln ('          S[',i,']=',s);
      end;
end.