Программирование. Паскаль!

[Регина91]

Пожалуйста ПОМОГИТЕ!

1) Вводятся числа. Конец ввода - 0. Найти сумму четных чисел и максимальное среди трехзначных отрицательных (программа и блок-схема)
2) Вводится текст. Конец ввода <F2>. Найти количество букв "А" (программа и блок-схема)

ИСПОЛЬЗОВАТЬ ТОЛЬКО типы Integer и Char

[Aleksandr H.]

2 http://www.programmersforum.ru/showthread.php?t=244877

[СтудПом]

VAR
  N,Sum,Max:integer;
BEGIN
  Sum:=0;
  Max:=-32768;
  repeat
    Write('Vvedite chislo ');
    ReadLn(N);
    if not Odd(N) then Sum:=Sum+N;
    if (-10000<N) and (N<-99) and (Max<N) then Max:=N
  until N=0;
  WriteLn('Sum=',Sum,' Max=',Max)
END.

Набор суммы ряда