Какие есть 3 устройства связи?

электро связь,сотовая связь,интернет связь.

program zd4;

uses crt;

type mas=array[1..20,1..20] of real;

var a: mas; g,b,i,j,n,m,nom1,nom2: integer; max: real;

begin

        clrscr;

        write ('введите размер массива: ');

        readln (n,m);

        write ('введите диапазон чисел в массиве: ');

        readln (g,b);

        randomize;

        for i: =1 to n do

                begin

                          for j: =1 to m do

                                  begin

                                            a[i,j]: =random(b-g)+g;

                                            write (a[i,j]: 5: 0,'  ');

                                  end;

                                  writeln;

                end;

        nom1: =1;

        nom2: =1;

        max: =a[1,1];

        for i: =1 to n do

            begin

                for j: =1 to m do

                        begin

                                  if a[i,j]> max then

                                      begin

                                        max: =a[i,j];

                                        nom1: =j;

                                        nom2: =i;

                                      end;

                        end;

            end;

        writeln ('максимальный элемент массива= ',max: 5: 0,' ,его координаты ','[',nom1,',',nom2,']');

readln;

end.

так?