кол-во студентов,отчисленных на каждом факультете, задача на паскале

[glasian]

создайте список факультетов и кол-во студентов,отчисленных на каждом факультете.Выведите списки факультетов ,с которых отчисленно менее 10 студентов, и факультетов,с которых отчислено от 11 до 20 студентов.
(сделать задачу надо через внешний файл).

[slips]

создай тип запись, и работай с ним.. это же не сложно

[glasian]

я не шарю в этом

[slips]

ну если не шаришь то тогда тебе только остаёться два варианта
а) ты идёшь сюда http://programmersclub.ru/book/
б) ты идёшь сюда http://programmersforum.ru/forumdisplay.php?f=29

Хотя может кто то и так поможет ... запасной вариант ..

[glasian]

плиз помогите

[ReM]

Вот примерно:

program inst;
uses crt;
const N=2;
type inst=record
                   fac:string[35];
                   st:byte;

     end;
var f:text;
    instit:array[1..n] of inst;
    i:integer;
begin
for i:=1 to n do
 begin
      write('Введите название ',i,' факультета. ');
      readln(instit[i].fac);
      Write('Ввидите количество отчисленных студентов: ');
      readln(instit[i].st);
 end;

assign (f,'in');
rewrite(f);

for i:=1 to n do
     if instit[i].st<10 then
     writeln(f,'Отчисленно <10 из ', instit[i].fac)
     else
     writeln(f,'Отчисленно >10 из ', instit[i].fac);

close(f);

end.

[glasian]

пасибки))))))))