Описать системный блок в писменом виде

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

Завдання №2var i,j,k,shlth: integer;               letter: char;         name,minword,s1,x,x1: string;               f1,f2: text;               f: boolean;               arr: array [1..100] of string; label 1;   begin writeln('введіть імя файлу введення: '); readln(name); assign(f1,name); reset(f1); writeln('введіть імя файлу виводу: '); readln(name); assign(f2,name); rewrite(f2); writeln('введіть букву для пошуку: '); readln(letter); letter: =lowercase(letter);   j: =1;   while not eof(f1) do begin   readln(f1,x1);   x: =lowercase(x1);   i: =1;   while (i< =length(x)) and (x[i] < > letter) do     begin           while (i< =length(x)) and (x[i] = ' ') do inc(i);           if (i< =length(x)) and (x[i] < > letter) then               while (i< =length(x)) and (x[i] < > ' ') do inc(i);     end;       if i> length(x) then   begin     writeln(f2,x1);     arr[j]: =x1;       inc(j);       end; end;   f: =false; for k: =1 to j do begin     i: =1;     while (i< =length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);   if i< length(arr[k])+1 then begin f: =true; goto 1; end; end;   1: if not f then writeln('у файлі f2 немає слова, відповідного умові вибору') else begin   while (arr[k][i]< > ' ') and (i< =length(arr[k])) do    begin     minword: =minword+arr[k][i];     inc(i);     end;     for k: =1 to j do   begin       i: =1;       while i< =length(arr[k]) do       begin         while (i< =length(arr[k])) and (arr[k][i] = ' ') do inc(i);     if i< =length(arr[k]) then begin shlth: =1; s1: =arr[k][i]; end;     while (i< =length(arr[k])) and (arr[k][i] < > ' ') do begin s1: =s1+arr[k][i]; inc(i); inc(shlth);   end;     if shlth< length(minword) then minword: =s1;       end;   end; writeln('найкоротша слово у файлі f2: ',minword); end;         close(f1); close(f2); end.

Const n1 = 5;       n2 = 5; var a: array [0..n1, 0..n2] of integer;     b: array [0..n1*n2] of integer;     i, j, n: integer; begin       for i: =0 to n1 do {заполнение массивы случайными числами}           for j : = 0 to n2 do             a[i, j] : = random(9999);                 for i: =0 to n1 do {основная часть, проверка и заполнение второго массива}          for j : = 0 to n2 do               if (a[i, j] mod 2 = 0) then               begin                   b[n] : = a[i, j];                   n : = n + 1;               end;                     for i: =0 to n do   {вывод полученных чисел}           writeln(b[i]); end.