Написать программу, обеспечивающую ввод данных об n-ом числе работников и выводящую эти данные в виде таблицы

uses crt;
type rab=record
         fio,dol:string;
         end;
    mas=array[1..20]of rab;
const fio1:array[1..20]of string=('ЂЎа*¬®ў Њ.ћ.','ЂЎа®бмЄЁ* Ђ.‘.','ЃЁЄЎҐа¤Ё** „.’.','ЃЁЄЄг¦Ё* ‘.‹.','‚Ґ¤Ґ*ҐҐў* ’.ћ.',
'ѓгаҐ*в쥢 ….‚.','„г¤Є* ….‚.','…«¤Ё* „.‘.','†ҐаҐЎпв*ЁЄ®ў* Љ.‚.','‡Ёп*Јг«®ў „.Њ.','Љ*а*Ў**®ў ‘.‘.','Љ®¬*а®ў ….Њ.',
'Љ®а*ЁҐ*Є® Њ.Ђ.','ЉаҐв®ў* Ђ.B.','ЌЁЄЁвЁ** ….‚.','Џ®Ї®ў „.?.','‘Ё*п*бЄЁ© ‚.Ќ.','‘Ё§оЄ®ў „.A.','’®Є*ॢ* ….Ђ.','’®а®бп* Ђ.Ќ.');
      dol1:array[1..20]of string=('bugalter','glavnii spechialist','meneger','sisadm', 'bugalter','glavnii spechialist',
'meneger','sisadm','bugalter','glavnii spechialist', 'meneger','sisadm','bugalter','glavnii spechialist', 'meneger',
'sisadm','bugalter','bugalter','bugalter','bugalter');
var a:mas;
    i,n:byte;
begin
clrscr;
writeln('Vvedite kolichestvo rabochih,kotoroe hotite vivesti:');
readln (n);
clrscr;
writeln('F.I.O.':18,'Doljnost':25);
writeln;
for i:=1 to n do
    begin
    a[i].fio:=fio1[i];
    a[i].dol:=dol1[i];
    end;
for i:=1 to n do writeln (a[i].fio:18,a[i].dol:25);
readln;
end.