ДЛЯ ОСОБО ТУПЫХ,СКАЖИТЕ КАК ЭТО ДЕЛАТЬ Используя текстовый редактор, подготовьте небольшой отчет на тему «Модели систем», выполнив два следующих задания.

ЗАДАНИЕ 2. Модель состава системы
Изобразите графическими средствами модель состава систем, рассмотренных в первом задании. Обоснуйте вашу модель с точки зрения ее назначения. Отметьте, какие составляющие системы в этой модели рассматриваются в качестве элементов, а какие в качестве подсистем.​

Program asd;
Const n=4;   
  m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN  
For i:=1 to n do  
 begin   
For j:=1 to m do    
 begin   
  A[i,j]:=2+Random(8); 
   Write(A[i,j],' ');    
 end;   
Writeln;
  end;    
 Writeln;  ii:=1; 
   For i:=1 to n do 
  begin 
   min:=1000;   
 for j:=1 to m do  
   begin   
  jj:=1;  
    If A[i,j]<=min then
    begin 
    min:=A[i,j];
   id[i]:=i; 
 jd[i]:=j;    
  end;     
 end;   
  B[i]:=min; 
         end;
   For i:=1 to n do 
   begin 
 Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');  
  end;   
END.

Program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils; 
 Const n=30; 
     m=1;
var b,c:array[m..n] of integer;
i,a,s,y,s1:integer;
BEGIN
Write('Vvedite trexsnachnoe chislo A: ');
 readln(a); 
y:=a; s:=0; 
while ( y<>0 ) do 
 begin 
  s:=s + (y mod 10); 
  y:=y div 10;
 end;
Writeln('Summa zifr ravna: ',s);
Writeln;
Writeln('Massiv: ');
For i:=m to n do
  begin 
b[i]:=100+Random(200);
 Write(b[i],' '); 
c[i]:=b[i];
 end;
Writeln;   Writeln; 
 Write('Vse chisla, kotorye ravny po summe zifr: ') ;
 For i:=m to n do  
 begin 
 s1:=0; 
while ( b[i]<>0 ) do 
 begin 
 s1:=s1 + (b[i] mod 10); 
 b[i]:=b[i] div 10; end; 
 //Write(' ',S1,' '); 
  If s=s1 then   
begin 
  Write(c[i],' '); 
  end;  end;   
   Readln; 
END.