процесс распространения информации в пространстве — это передача информации получение информации деление информации обработка информации

Это передача информации

Var Sim:array[0..10] of string;

function count_ya(var s: string): integer;
begin
  var i, n, len: integer;
  var c: char;
 
  n := 0;
  len := Length(s);
  for i := 1 to len do begin
    c := s[i];
    if (c = 'я') or (c = 'Я') then begin
      n := n + 1;
    end;
  end;
 
  result := n;
end;

procedure word(var s: string);
begin
  var i, c, k, j: integer;
 
  c := count_ya(s);
 
  for i := 0 to 10 do begin
    if count_ya(Sim[i]) < c then begin
      for k := 9 downto i do begin
        Sim[k + 1] := Sim[k];
      end;
    
      Sim[i] := s;
      break;
    end;
  end;
end;

Begin
  Var C: Char;
  Var i, k: integer;
  Var f1: text;
  Var s: string;

  assign(f1, 'file1.txt');
  reset(f1);
  randomize;

  i := 0;
  while not Eof(f1) do begin
    read(f1, C);
    if ((C >= 'а') and (C <= 'я')) or ((C >= 'А') and (C <= 'Я')) then begin
      i := 1;
      s := s + C;
    end else begin
      if i = 1 then begin
        word(s);
      end;
      i := 0;
      s := '';
    end;
  end;
 
  if i = 1 then begin
    word(s);
  end;
 
  close(f1);
 
  for i := 0 to 10 do begin
    s := Sim[i];
    if s = '' then break;
    writeln(s);
  end;
end.

Язык Pascal
    uses
      crt;
    var
      cs1,cs2,res,change:integer;
      TD:string;
    function FromDec(n,r:longint):string;
    var
      s:String;
    const
      digit:string[16]='0123456789ABCDEF';
    begin
      s:='';
      repeat
        s:=digit[(n mod r)+1]+s;
        n:=n div r;
      until n=0;
        FromDec:=s;
    end;
    function ToDec(n:string;r:longint):longint;
    var
      m,i:longint;
    const
      digit:string[16]='0123456789ABCDEF';
    begin
      m:=0;
      while n[1]='0' do
        delete(n,1,1);
      for i:=1 to length(n) do
        m:=m*r+pos(n[i],digit)-1;
      ToDec:=m;
    end;
    begin
      writeln('Введите из какой CC:');
      repeat
        readln(cs1);
      until
        (cs1>=2) and (cs1<=36);
      writeln('Введите число в соответствии с CC:');
      readln(TD);
      writeln('Введите в какую CC:');
      repeat
        readln(cs2);
      until
        (cs2>=2) and (cs2<=36);
      writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:');
      writeln(FromDec(ToDec(TD,cs1),cs2));
    end.