составить блок схемы на темы 1(множество) 2(фаил)

program lol;
uses crt;
const nmax=20;//максимальный размер матрицы
var a:array[1..nmax,1..nmax] of integer;//тип матрицы
    n,m,i,j:byte;//переменные - размеры матрицы, счетчики циклов
    sm,b:integer;//сумма, переменная для чтения чисел
    s1,s2:set of byte;//множества чисел от 0 до 255
begin
clrscr;//очищаем экран
randomize;//генерация псевдо-случайных чисел
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];//проверяем правильность ввода
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do//выводим матрицу по строкам
begin
   for j:=1 to n do
begin
     a[i,j]:=random(20);//случайные числа от 0 до 19
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Множество S1:');
s1:=[];//пустое множество
for i:=1 to m do
 begin
  b:=random(m)+1;//наполняем случайными числами от одного до количества строк
  s1:=s1+[b];//записываем в множество
end;
for i:=1 to m do
if i in s1 then write(i,' ');//выводим элементы множества на экран
writeln;
writeln('Множество S2:');
s2:=[];
for i:=1 to n do
begin
b:=random(n)+1;
s2:=s2+[b];
end;
for i:=1 to n do
if i in s2 then write(i,' ');
writeln;
writeln;
sm:=0;//сумма пока ноль
for i:=1 to m do//идем по матрице
for j:=1 to n do
if(i in s1)and(j in s2) then sm:=sm+a[i,j];{если номер строки и номер столбца есть
в соответствующих им множествам, суммируем}
write('Сумма=',sm);//выводим сумму на экран
readln;
end.

Program Problem52_1;
Type
  Bagaz = Record
              Kol:Byte; {Количество вещей}
              Ves:Real; {Вес в килограммах}
              Sr_Ves_Bag:Real; {Средний вес вещи}
          End;
Var
    Bagaz_Pas:Array[1..30] Of Bagaz;
    Flag:Boolean;
    N,i,Kol1,Kol2:Byte;
    Sr_Ves:Real; {Средний вес одной вещи всего багажа}
    Sr_Kol:Real; {Среднее количество вещей}
Begin
  WriteLn('Задайте количество пассажиров:');
  ReadLn(N);
  For i:=1 To N Do
    With Bagaz_Pas[i] Do
      Begin
        WriteLn('Пассажир N',i);
        Write('Количество вещей: ');
        ReadLn(Kol);
        Write('Общий вес: ');
        ReadLn(Ves);
        Sr_Ves_Bag:=Ves/Kol; {Средний вес вещи}
        WriteLn; {Пропуск пустой строки}
      End;
  Sr_Ves:=0; {Начальные значения}
  Sr_Kol:=0;
  {Нахождение среднего веса вещи всего багажа и}
  {среднего количества вещей}
  For i:=1 To N Do
    With Bagaz_Pas[i] Do
      Begin
        Sr_Ves:=Sr_Ves+Sr_Ves_Bag;
        Sr_Kol:= Sr_Kol+Kol;
      End;
  Sr_Ves:=Sr_Ves/N;
  Sr_Kol:=Sr_Kol/N;
  WriteLn('Задание а)');
  Flag:=False;
  For i:=1 To N Do
    With Bagaz_Pas[i] Do
      If abs(Sr_Ves_Bag-Sr_Ves)<=0.3 Then
       Begin
         WriteLn('Кол-во вещей: ',Kol,' их вес: ',Ves);
         Flag:=True;
       End;
  If Not Flag Then WriteLn('Таких нет');
  WriteLn('Задание б)');
  Kol1:=0; {Кол-во пассажиров, имеющих более 2-х вещей}
  Kol2:=0; {Кол-во пассажиров, вещей у которых}
           {больше среднего}
  For i:=1 To N Do
    With Bagaz_Pas[i] Do
     Begin
      If Kol>2 Then Kol1:=Kol1+1;
      If Kol>Sr_Kol Then Kol2:=Kol2+1;
     End;
  WriteLn('Пассажиров, у которых больше 2-х вещей: ', Kol1);
  WriteLn('Пассажиров, у которых вещей большесреднего: ', Kol2);
  WriteLn('Задание в)');
  Flag:=False;
  For i:=1 To N Do
    With Bagaz_Pas[i] Do
  If (Kol=1) and (Ves<30) Then Flag:=True;
  If Flag Then WriteLn('Такой пассажир имеется')
  Else WriteLn('Такого пассажира нет');
End.