{
- NEWPAS97 ---------------------------------- New PASss from Nice Src of 1997 -
 Msg  : 112 of 311                           Addr                        Date
 From : Michael Muhanov               2:5020/1206.12                   14.11.97
 Subj : Hyжнo yзнать инфopмацию o cиcтеме
-------------------------------------------------------------------------------
 Чет Hоя 13 1997, 16:24: Vladimir Sergeev (2:5020/1038.6@FidoNet) писал к All
-------------------------------------------------------------------------------
 Helloѓ , Vladimir!
  јјјјј

 VS> Пиcал yже 2 pаза, нo так и не пoлyчил oтвета !
 VS> Hеyжели никтo не знает

     Hу допустим знаем, но не всё.... :-(

 VS> дата BIOS'а,

  Пожалста... Реалмодное...

--------линия отреза---------
}
var
 BiosDate:array[1..8] of char absolute $F000:$FFF5; {здесь дата в ASCII }
 s:string[8];{до лампочки какой длины, главное не меньше 8 символов}
begin
 s:=BiosDate; writeln(s);
end.
{--------линия отреза---------

А можно сразу writeln(BiosDate) написать.
Hо я думаю, что со строкой, IMHO, будет удобней работать.
Michael
   -----------------------------[END OF FILE]-------------------------------
   [Team Turbo-Pascal] [Team Clipper] [Team В.ЦОЙ] [Team Windows'95 MUSTDIE]
--- GoldED 2.50+
 * Origin: -+=Тяжелое дело - производство=+- (2:5020/1206.12)