построить блок-схемы по информатике .

Uses
  Crt;
const
  nn=10;
var
  a:array[1..nn,1..nn] of integer;
  d:array[1..nn] of boolean;
  i,j,k,n,n1,i1:integer;
begin
  ClrScr;
  Randomize;
  Write('Укажите число строк в массиве (2-10): ');
  Read(n);
  Writeln('Исходный массив');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
    end;
    Writeln
  end;
  Write('Введите число, строки с которым надо удалить: ');
  Read(k);
  for i:=1 to n do
  begin
    d[i]:=False;
    j:=1;
    while (j<=n) and not d[i] do
    begin d[i]:=(a[i,j]=k); Inc(j) end
  end;
  n1:=n;
  while (d[n1]) and (n1>0) do Dec(n1);
  if n1=0 then Writeln('Удалены все строки')
  else begin
    for i:=n1 downto 1 do
    begin
      if d[i] then begin
    for i1:=i to n1-1 do
      for j:=1 to n do a[i1,j]:=a[i1+1,j];
    Dec(n1)
      end
    end;
    Writeln('Результирующий массив');
    for i:=1 to n1 do
    begin
      for j:=1 to n do Write(a[i,j]:4);
      Writeln
    end
  end;
  ReadKey
end.

Тестовое решение:
Укажите число строк в массиве (2-10): 10
Исходный массив
  -6  23  18   9   4  15 -22  12  16 -18
  11  20 -16 -22 -20 -24 -21  25  12  14
 -11   7  22   4  -6 -15 -14  -7 -19   1
 -16   5  -9  19   6  10   2   2  10  18
 -18  -6 -24  21  16 -22  12   2 -25   5
   0 -11  16 -11   6  21 -12  -1  13 -20
 -24   3 -22  14  19  22   2 -15  10 -13
 -22  16  12  24  -3  -2 -20  16 -11   4
  -9 -15  -1 -20  17 -17 -24   3 -19   9
  23   7 -25  -6  16  13  -5  22 -18  18
Введите число, строки с которым надо удалить: -6
Результирующий массив
  11  20 -16 -22 -20 -24 -21  25  12  14
 -16   5  -9  19   6  10   2   2  10  18
   0 -11  16 -11   6  21 -12  -1  13 -20
 -24   3 -22  14  19  22   2 -15  10 -13
 -22  16  12  24  -3  -2 -20  16 -11   4
  -9 -15  -1 -20  17 -17 -24   3 -19   9

Const
  Cyr=['А'..'я','Ё','ё'];
  Lat=['A'..'z'];
  Dig=['0'..'9'];
var
  s,sC,sL,sD,sO:string;
  i:integer;
begin
  Writeln('Введите произвольную строку символов');
  Readln(s);
  sC:=''; sL:=''; sD:=''; sO:='';
  for i:=1 to Length(s) do
    if s[i] in Cyr then sC:=sC+s[i]
    else
      if s[i] in Lat then sL:=sL+s[i]
      else
        if s[i] in Dig then sD:=sD+s[i]
        else sO:=sO+s[i];
  Writeln('Кириллица: ',sC);
  Writeln('Латиница : ',sL);
  Writeln('Цифры    : ',sD);
  Writeln('Прочее   : ',sO)
end.

Тестовое решение:
Введите произвольную строку символов
Запишем следующее выражение: y=5*Sin(x)/(3.5*x+Sqr(x); (язык Pascal)
Кириллица:
Латиница : ySinxxSqrxPascal
Цифры    : 535
Прочее   :   : =*()/(.*+(); ( )

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