TURBO PASCAL:Учебное пособие. Терёхин В.В. - 98 стр.

   for i := 1 to h-1 do
   begin
      gotoxy(x, у + i); write(' | ' ) ;
      gotoxy(x + k, у + i); wri te(' | ') ;
   end;
   {выводим заголовок окна}
  gotoxy(x + (1 - length (S)) div 2 ); write(S);
end;
begin
   clrscr ;
   Wind(2, 3, 20, 6, ‘Oкно № 1');
end.

       24 Параметры-переменные не имеющие типа

        Если в качестве формального параметра используется
параметр-переменная, для которой тип не указан, то фактиче-
ский параметр связывается с формальным параметром как с
ссылочной переменной. При этом совмещаются физические
адреса фактического и формального параметров, а интерпрета-
ция данных производится по типу фактического параметра.
        При использовании формального параметра без типа
внутри процедуры необходимо приводить его к ожидаемому
типу, т. е. параметр указывается в круглых скобках после име-
ни типа. Связываемый с такими параметрами тип является
фиктивным, но он определяет форму доступа к компонентам
данных.
        Примеры:
Integer(m)
Real(t)
Char(g)
String(h)
        В следующей программе описана процедура с парамет-
ром без типа, а в теле процедуры параметр сначала интерпре-
тируется и выводится на экран как целое значение, затем как
                                                           98