блок-схема для программы в паскале

[4еловек-молекула]

program ksenia;
uses crt;
var

s,mas:array [1..15] of integer;
dmas:array [1..15 , 1..15] of integer;
a,z,i,j,p,e,q:integer;
procedure mas1;
begin
writeln('Какой размерности массив',a);
readln(a);
p:=0;
writeln ('Введите одномерный массив');
for i:=1 to a do
begin
readln (mas [i]);
if mas[i]>p then
begin
p:=mas[i] ;

end;
end;
writeln('Максимальный элемент =',p)
end;

procedure mas2;
begin
writeln('Какой размерности двухмерный массив');
readln(a);

writeln ('Введите двухмерный массив');
for i:=1 to a do
begin
for j:=1 to a do
begin
readln ( dmas [i , j] );

end;
end;
for j:=1 to a do
begin
s [j]:=dmas [i,j];
for i:=1 to a do
begin
if dmas [i,j]<s [j] then
s [j]:=dmas [i,j];

end;
end;
for i:=1 to a do
begin
writeln('Минимальный в строке элемент =',s [i]);
q:=q+s[i]
end;
writeln('Сумма минимальных элементов =',q)
end;

begin
repeat
writeln('Какое действие хотите выполнить');
writeln('1-Заполнение одномерного массива');
writeln('2-Заполнение двухмерного массива');
writeln('3-Выход');
readln(e);
case e of
1: mas1;
2: mas2;
end;

until (e=3);
end.

[Вадим Мошев]

Это не компилятор, а форум.

[BDA]

FCEditor поможет