Здравствуйте, помогите пожалуйста создать таблицу вокруг-
writeln ('1 - sozanie dokumenta');
writeln ('':20,'2 - otobrakenie vseh marshrutov');
writeln ('':20,'3 - popolnenie dokumenta');
writeln ('':20,'4 - EXIT');

в общем что бы эта часть была в рамке


program var30_2;
uses crt;
type REIS = record
Present: boolean;
number: integer;
StartCity: string[20];
FinishCity: string[20];
PL_Total: integer;
KP_Total: integer;
end;

f0=file of REIS;
masiv=array [1..255] of REIS;
var f:f0;
z:REIS;
s: string;
c, ch, usl:char;
i,j,n: integer;
mas: masiv;

procedure dostyp(var f:f0);
begin
clrscr;
writeln ('':20,'vvedite imya faila');
readln(s);
s:=s+'.txt';
assign (f, s);
{$I-) reset(f); {$I+}
if ioresult <>0 then rewrite (f)
else reset (f)
end;
procedure vvod (var z:REIS);
begin
writeln ('':20,'vvedite nomer reisa');
readln (z.number);
writeln ('':20,'vvedite gorod otpeavleniya');
readln (z.StartCity);
writeln ('':20,'vvedite gorod naznacheniya');
readln (z.FinishCity);
writeln ('':20,'vvedite kol, plackarnix mest');
readln (z.PL_Total);
writeln ('':20,'vvedite kol kupe mest');
readln (z.KP_Total);
end;

begin
textbackground(1);

clrscr;
textcolor (14);
gotoXY (21, 10);



writeln ('1 - sozanie dokumenta');
writeln ('':20,'2 - otobrakenie vseh marshrutov');
writeln ('':20,'3 - popolnenie dokumenta');
writeln ('':20,'4 - EXIT');




usl:=readkey;
case usl of
'1': begin dostyp(f);
rewrite(f); clrscr;
writeln('':20,'Vvedite dannie, <Esc> - VIHOD IZ VVODA');
c:=readkey;
while c<>#27 do begin
vvod(z); write(f, z);
writeln('':20,'<Esc> - KOHELL BBODA');
c:=readkey;
end
end;
'2':begin dostyp(f);
reset(f); clrscr;
i:=0;
writeln('====|====|====================|========== ==========|=======|=======|');
writeln('Npl |REIS| Gorod Otpravleniyz | Gorod naznacheniya | Kupe |plackar|');
writeln('====|====|====================|========== ==========|=======|=======|');
while not eof(f) do begin
read (f,z); i:=i+1;
with z do
writeln(' ',i,'| ',number,'| ', StartCity:18,'|', FinishCity:20,'|',KP_Total:7,'|',PL_Total:7,'|');
end;
readln
end;
'3': begin dostyp(f);
clrscr; reset (f);
Seek(f, Filesize(f));
writeln('':20,'vvedite dannie, <Esx> - Vihod iz vvoda');
c:=readkey;
while c<>#27 do begin
vvod(z);
write(f, z);
writeln('':20,'<Esc> - konec vvoda');
c:=readkey
end
end;
'4': exit
end;
end.