Ввести в виде таблицы данные о количестве студентов по отделениям

[3Doleg]

Всем добрый вечер!)
помогите доделать программу (или исправить)

Сформировать два файла А и Б. В файл А записать названия отделений, в файл Б - количество студентов в группе и названия учебных групп. Использовав сформированы файлы, ввести в виде таблицы данные о количестве студентов по отделениям.

В программе есть таблица, файл А и Б(вложил), помогите сделать программу)

uses crt;
type f=record
end;
var a,b:text;
fak:string[15];
rew:string[25];
g:file of f;
i,j,k:integer;
begin clrscr;
assign(a,'e:\fak.txt');
rewrite(a);
for i:=1 to 5 do begin
readln(fak);
write(a,fak);
end;
close(a);
begin assign(a,'e:\fak.txt');
reset(a);
while not eof(a) do begin
readln(a,fak);
writeln(fak);
end;
close(a);
begin
assign(b,'e:\inc.txt');
rewrite(b);
for i:=1 to 5 do begin
readln(rew);
write(b,rew);
end;
close(b);
begin
assign(b,'e:\inc.txt');
reset(b);
while not eof(b) do begin
readln(b,rew);
writeln(rew);
end;
close(b);
writeln;
writeln('Tablucya: ':35);
writeln;
writeln('-------------------------------------------');
writeln('|    Fakyltet    |    Koluchestvo Stydentov  | ');
writeln('-------------------------------------------');
begin
gotoxy(1,wherey);write('|',fak);
gotoxy(18,wherey);write('|',rew);
end;
writeln('-------------------------------------------');
end; end; end;
readkey;
end.

Заранее спасибо!)