Вывести текст из файла в таблицу - Turbo Pascal

Формулировка задачи:

нужно вывести текст из файла в эту таблицу(это не окончательный вариант таблицы, просто экспериментирую), проблема в том что при компиляции ошибок не выдаёт, но в программе не выводит никакого текста, помогите пожалуйста ATOMAS.TXT

                    Листинг программы
                
 
                            
                        
Program TablicaMendeleeva;
  uses Graph,crt,scpgraph;
  type
  book=record
  Atomas1:string[20];
  Atomas2:string[20];
  end;
  mas=array[1..10] of book;
  var
  libr:mas;
  ff:text;
  i:integer;
 
    Procedure GraphInit;
     var grMode,grDriver,ErrCode,a:integer; ch:char;
      begin
      grDriver:=Detect;
      InitGraph(grDriver,grMode, 'X:\BP');
      ErrCode:=GraphResult;
      if Errcode <> grOk then
       begin
       writeln('Error:','GraphErrormsg(Errcode)');
       readln;
       halt;
       end;
       end;
    Procedure Inter;
    begin
  setbkcolor(15);
    SetLineStyle(0,0,3);
    SetColor(7);
{1 бв®«ЎЁЄ}
Rectangle(1,1,71,34);
Rectangle(1,1,71,68);
Rectangle(1,1,71,102);
Rectangle(1,1,71,136);
REctangle(1,1,71,170);
Rectangle(1,1,71,204);
Rectangle(1,1,71,238);
Rectangle(1,1,71,272);
Rectangle(1,1,71,306);
REctangle(1,1,71,340);
Rectangle(1,1,71,374);
REctangle(1,1,71,410);
REctangle(1,1,71,444);
REctangle(1,1,71,478);
Rectangle(71,34,639,479);
{‹Ё*ЁЁ Ї® Ј®аЁ§®*в*«Ё}
Line(71,34,568,34);
Line(71,68,639,68);
Line(71,102,639,102);
Line(71,136,639,136);
Line(71,170,639,170);
Line(71,204,639,204);
Line(71,238,639,238);
Line(71,272,639,272);
Line(71,306,639,306);
Line(71,340,639,340);
Line(71,374,639,374);
Line(71,410,639,410);
Line(71,444,639,444);
Line(71,478,639,478);
{‹Ё*ЁЁ Ї® ўҐавЁЄ*«Ё}
Line(142,34,142,479);
Line(213,34,213,479);
Line(284,34,284,479);
Line(355,34,355,479);
Line(426,34,426,479);
Line(497,34,497,479);
Line(568,34,568,479);
{Џ®б«Ґ¤*Ё© бв®«ЎЁЄ}
Rectangle(639,1,568,34);
OuttextXY(75,20,'ЏҐаЁ®¤ЁзҐбЄ*п бЁбвҐ¬* еЁ¬. н«Ґ¬Ґ*в®ў „.€. ЊҐ*¤Ґ«ҐҐў*');
Settextstyle(3,0,4);
setcolor(3);
OuttextXY(2,1,'H');
OuttextXY(570,1,'He');
OuttextXY(2,35,'Li');
 
end;
procedure Text;
begin
assign(ff,'D:\atomas.txt');
reset(ff);
while not eof(ff) do
begin
for i:=1 to 10 do
readln(ff,Libr[i].Atomas1,libr[i].Atomas2);
setcolor(0);
outtextxy(30,30,libr[i].atomas1);
outtextxy(40,40,libr[i].atomas2);
end;
close(ff);
end;
 
   Begin
Graphinit;
inter;
text;
 
readln;
end.

Решение задачи: «Вывести текст из файла в таблицу»

Листинг программы

program TablicaMendeleeva;
 
uses
  Graph,crt;
type
  book = record
    Atomas1: string[20];
    Atomas2: string[20];
  end;
  mas = array[1..10] of book;
 
var
  libr: mas;
  ff: text;
  i: integer;
 
procedure GraphInit;
var
  grMode, grDriver, ErrCode, a: integer;
  ch: char;
begin
  grDriver := VGA;
  grMode:=VGAHi;
  InitGraph(grDriver, grMode, 'c:\BP');
  ErrCode := GraphResult;
  if Errcode <> grOk then
  begin
    writeln('Error:', 'GraphErrormsg(Errcode)');
    readln;
    halt;
  end;
end;
 
procedure Inter;
begin
  setbkcolor(15);
  SetLineStyle(0, 0, 3);
  SetColor(7);
  {1 столбик}
  Rectangle(1, 1, 71, 34);
  Rectangle(1, 1, 71, 68);
  Rectangle(1, 1, 71, 102);
  Rectangle(1, 1, 71, 136);
  REctangle(1, 1, 71, 170);
  Rectangle(1, 1, 71, 204);
  Rectangle(1, 1, 71, 238);
  Rectangle(1, 1, 71, 272);
  Rectangle(1, 1, 71, 306);
  REctangle(1, 1, 71, 340);
  Rectangle(1, 1, 71, 374);
  REctangle(1, 1, 71, 410);
  REctangle(1, 1, 71, 444);
  REctangle(1, 1, 71, 478);
  Rectangle(71, 34, 639, 479);
  {Ли*ии по горизо*т*ли}
  Line(71, 34, 568, 34);
  Line(71, 68, 639, 68);
  Line(71, 102, 639, 102);
  Line(71, 136, 639, 136);
  Line(71, 170, 639, 170);
  Line(71, 204, 639, 204);
  Line(71, 238, 639, 238);
  Line(71, 272, 639, 272);
  Line(71, 306, 639, 306);
  Line(71, 340, 639, 340);
  Line(71, 374, 639, 374);
  Line(71, 410, 639, 410);
  Line(71, 444, 639, 444);
  Line(71, 478, 639, 478);
  {Ли*ии по вертик*ли}
  Line(142, 34, 142, 479);
  Line(213, 34, 213, 479);
  Line(284, 34, 284, 479);
  Line(355, 34, 355, 479);
  Line(426, 34, 426, 479);
  Line(497, 34, 497, 479);
  Line(568, 34, 568, 479);
  {Послед*ий столбик}
  Rectangle(639, 1, 568, 34);
  OuttextXY(75, 20, 'Периодическ*я систем* хим. элеме*тов Д.И. Ме*делеев*');
  Settextstyle(3, 0, 4);
  setcolor(3);
  OuttextXY(2, 1, 'H');
  OuttextXY(570, 1, 'He');
  OuttextXY(2, 35, 'Li');
end;
 
procedure Text;
begin
  assign(ff, 'atomas.txt');
  reset(ff);
  i:=1;
  setcolor(15);
  Settextstyle(0, 0, 3);
  while not eof(ff) do
  begin
    readln(ff, Libr[i].Atomas1, libr[i].Atomas2);
 
    outtextxy(30, 30, libr[i].atomas1);
    outtextxy(40, 50, libr[i].atomas2);
    inc(i);
  end;
  close(ff);
end;
 
begin
  Graphinit;
  inter;
  text;
  readln;
end.

Объяснение кода листинга программы

В программе используется библиотека Graph, которая предназначена для создания графиков.
В процедуре GraphInit инициализируется графический режим и графический драйвер.
В процедуре Inter создается графическое окно и настраивается стиль линий.
Затем происходит чтение данных из файла atomas.txt в массив libr.
После этого данные выводятся на экран в виде текста.
В конце программы сбрасывается буфер обмена и закрывается файл atomas.txt.