Массив, график функции, создание 5 слов из 1 Опции

[Allusya]

Извиняюсь, не хотела никому доставлять неудобства, просто уж очень мало времени было и на чтение правил его не хватило  :(
Надеюсь, что на этот раз оформила всё правильно.  :
Пожалуйста, помогите решить задачи! Ооочень нужно! Вопрос жизни и смерти.  
1. Составить программу создания пяти новых слов из слова "демобилизация".
2. Составить программу построения графика функции у=2x^2+1. выделить и вывести точки пересечения графика и осей координат.
3. Составит программу заполнения двумерного массива 2х10 случайными целыми числами от -5 до 10. Найти среднее арифметическое и минимум.  
Заранее спасибо!  

[Catty]

Вот кажеться третья задача!! ;D

Код

uses Crt;
const n=2;
m=10;
var a:array[1..n,1..m] of integer;
i,j,min,Sum:integer;   Sa:real;
begin
 ClrScr;

 randomize;
 for i:=1 to n do {generation}
   for j:=1 to m do begin
     a[i,j]:=random(15)-2;
   end;



 ClrScr;
 for i:=1 to n do {vuvod masiva na ekran}
   for j:=1 to m do begin
     GotoXY(i*6-5,j);
     Writeln(a[i,j]);
   end;
 ReadKey;

Sum:=0;
for i:=1 to n do
for j:= 1 to m do   begin
Sum:=Sum+a[i,j];
Sa:=Sum/20;      {Sa}
end;


min:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]<min then min:=a[i,j];end;   {min}
writeln('Sa=',' ',Sa:4:2,' ','min=',' ',min);
ReadKey;
end.

генерацию можешь отрегулировать как те надо(если эта не устраивает)!! ;D