Нужна ваша помош.

[mela]

Кто умеет, и хорошо это знает не мог бы мне сделать блох схемы вот для этх програм, ато я делаю препод говарит не верно да не верно.
1 прог:

Program Massiv;
uses crt;
var
a: array[1..99] of integer;
b: array[1..99] of integer;
n,i,j,x,y: integer;
o: real;
Begin
Randomize;
clrscr;
writeln('');
Repeat
	Write('Введите половину количества элементов массива* '); readln(n);
	if (n<0)
	 then
	  Begin
	  writeln('');
	  writeln('Количество элементов в массиве должно быть больше нуля');
	  Writeln('Попробуйте ешё...');
	  end;
	Writeln('');
Until (n>0);
write('Сгенерирован массиы');
for i:=1 to 2*n do
	begin
	a[i]:=-25+(random(50));
	write(' ',a[i]);
	end;
writeln('');
j:=1;
for i:=1 to n do
	begin
	b[j]:=a[i];
	j:=j+1;
	b[j]:=a[n+i];
	j:=j+1;
	end;
writeln(' ');
write('Получен Массив B: ');
for i:=1 to 2*n do
	begin
	write(b[i],' ');
	end;
readln;
end.

2 прог:

Program Massivi2;
uses crt;
var
a: array [1..99] of real;
n, i, x: integer;
Begin
Randomize;
clrscr;
Repeat
	Write('Введите количество элементов массива '); readln(n);
	if (n<=1)
	 then
	  Begin
	  writeln('');
	  writeln('Количество элементов в массиве должно быть больше еденицы!');
	  Writeln('Попробуйте ешё...');
	  end;
	Writeln('');
Until (n>1);
write('Получен массив: ');

for i:=1 to n do
	Begin
	a[i]:=-25+(random(50));
	write(a[i]:2:1,' ');
	end;
  writeln('');
x:=0;
for i:=1 to n-1 do if ((a[i]>0) and (a[i+1]>0)) then x:=x+1;
writeln('';
if (x=0) then writeln('В массиве не встречается соседство двух положительных элементов')
	else writeln('В котором ',x,' раз встречается соседство положительных элементов');
readln;
end.

Мне это нужно чтоб самому разобратся наглядно лучше понимаю.
За ранее спасибо!

[Stilet]

Вот тебе програмулина, рисующая блоксхемы. Там файл INFO, читай все по русски, как с ней работать.