Подскажите,как создать таблицу

program kursovik;
uses crt;
type baza=record
  fam:string[30];
  pol:char;
  god:word;
  zarp,chist:word;
end;
var punkt:byte;
    bd:baza;
    s,k:string;
    code,v:integer;
    data: word;
begin
while true do
begin
clrscr;
writeln('                                  MENU                      ');
writeln('1:Vvod');
writeln('2:Prosmotr');
writeln('3:Poisk');
writeln('4:Exit');
readln(punkt);
case punkt of
1:begin
  write('Vvedite familia I.O. ');
  readln(bd.fam);
  write('Vvedite pol ');
  readln(bd.pol);
  repeat
  write('Vvedite god postyplenia na raboty  ');
  readln(s);
  val(s,v,code);
  if code<>0 then
             begin
             textcolor(14);
             write('Neverno vveden,net takoi daty ',s);
             textcolor(7);
            end;
  until code=0;
  repeat
  write('Vvedite zarplaty  ');
  readln(k);
  val(k,v,code);
  if code<>0 then
            begin
            textcolor(14);
            writeln('Nevepno vvedino,net takoi zarplaty ',k);
            textcolor(7);
          end;
  until code=0;
  writeln(bd.fam:20, bd.pol:3, s:6,k:9:2);
  readln;
  end;
2:begin
  writeln('-----------------------------------------------------');
  writeln('|Familya I.O.|Pol|God postyplenia na raboty|Zarplata|');
  writeln('-----------------------------------------------------');
  write('|', bd.fam:12,'|');
  write( bd.pol:3, '|');
  write(s:25,'|');
  writeln(k:8,'|');
  writeln('-----------------------------------------------------');
  readln;
  end;
3:writeln('Poisk');
4:Exit;
else
  writeln('Net takogo punkta');
end;
end;
readln;
end.