Andrey7284

Ребят, помогите пожалуйста сделать блок схему к программе

Вот сама программа:

program laba1_19;
Uses crt;
const n=20;
type mas=array[1..n]of integer;
var a :mas;
max,min,r,i:integer;
procedure vvod(var a:mas);
var i:integer; {индекс (номер) элемента массива}
ch: char; {переменная для хранения кода символа нажатой клавиши}
begin

TextColor (black); {цвет символов}

ClrScr; {очистка экрана}
gotoxy(20,3); {вывод текста в указанном месте экрана}

Writeln('ВАШЕМУ ВНИМАНИЮ ПРЕДСТАВЛЯЕТСЯ ПРОГРАММА,');
gotoxy(13,4);
Writeln('КОТОРАЯ ОПРЕДЕЛЯЕТ МАКС. И МИН. ЧИСЛА В МАССИВЕ ИЗ 20 ЧИСЕЛ,');
gotoxy(7,5);
Writeln('И ВЫЧИСЛЯЕТ РАЗНОСТЬ МЕЖДУ НИМИ ЗАМЕНЯЯ ЕЮ ЧЕТНЫЕ ЭЛЕМЕНТЫ МАССИВА ');
gotoxy(35,6);
textattr:=green;
Writeln('ВНИМАНИЕ!');
Textattr:=white;
gotoxy(21,7);
Writeln('Размерность данного массива должна быть');
gotoxy(21,8);
Writeln('в интервале от 2 до 100!');
gotoxy(40,12);
textattr:=yellow;
Writeln('');
gotoxy(40,13);
Writeln('');
gotoxy(49,14);
Writeln('');
gotoxy(40,15);
Writeln('');
gotoxy(20,24);
textattr:=white;
Writeln('Нажмите любую клавишу для продолжения…');
Ch:=readkey; {считывание символа с клавиатуры}
ClrScr;
for i:=1 to n do
begin
Write('Введите ',i:2, '-й элемент:');
Readln(a[i]);
end;
end;


procedure vivod(var a:mas);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

Begin
vvod(a);
Writeln('Исходный массив');
vivod(a);
max:=0;
min:=30;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Max= ',max,' Min= ',min);

r:=max-min;
for i:=1 to n do
if (i mod 2)=0 then a[i]:=r;
writeln ('Результат');
vivod(a);
End.