Задания по языку Pascal

[Corpse]

Здравствуйте!
У меня тут проблема...сам я newbie в данном языке(Pascal 7.0), прошу помощи.
1) Дан массив ненулевых целых чисел. Определить, сколько раз меняется знак элементов массива при его просмотре. Например, в массиве 12,-4, 13, 77,-5,-99 знак меняется 3 раза.
2) Дан двумерный массив. Найти сумму элементов главной диагонали массива.
3)Дан текстовый файл. Переписать всю информацию данного во второй файл удвоив все буквы "в".
4) Нарисовать на экране круг красного цвета.
Заранее спасибо!

[motaro]

4

uses graph;
var device,mode:integer;
begin
 device:=0;
 initgraph (device,mode,'d:\borlandc\turbopascal\bgi');
 circle (320,240,100);
 setfillstyle (1,4);
 floodfill (350,275,white);
 readln;
 closegraph
end.

[Corpse]

1-ая задача
Uses crt;
Const M=100;
Var i,n,k:integer;
Mas:array [1..m] of integer;
Begin
Clrscr;
K:=0;
Writeln('Vvedite dlinu massiva');
Readln(n);
Writeln('Vvedite chisla massiva');
For i:=1 to n do
Begin
Readln(mas[i]);
End;
For i:=1 to n do
If mas[i+1]*mas[i]<0 then K:=k+1;
Writeln('Znak meniaetsya ',k,' raz(a)');
Readln;
End.

[Serge_Bliznykov]

только на надо за пределы массива выходить:

For i:=1 to n-1 do
  If mas[i+1]*mas[i]<0 then K:=k+1;

[Xardas]

Со второй и третьей думаю проблем не возникнет:

2: где-то так

//.................
s:=0;
for i:=1 to row do
for j:=1 to col do
if i=j then s:=s+a[i,j]
//...........

3: как-то так

//......................
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
readln(f1,str);
for i:=1 to length(str) do
if str[i]='в' then insert('в',str,i);
write(f2,str);
end;
//..........................

[Corpse]

Так, спасибо ребят, щас пойду творить...