Задача на тему Записи

[leoneedka]

Люди помогите плиз, ни как не могу решить ни чё не получается. я уже всю голоу сломал, тут нада решать с помощью записей, а я вних просто теряюсь. За ранее тем кто сможет это решить огромное спасибо!

Дан массив, содержищий некоторую информацию об учениках некоторой школы, выяснит, на сколько человек в восьмых классах больше чем в девятых.
во второй задаче данные о классах вводятся с клавиатуры а не читаются из файла.

[Stilet]

Чет типа такого:

const n=10;
type
 Shkola=record
    klass:string;colvo:byte;
   end;

var a:array[1..10] of Shkola;
    i:integer;
    s,s1:byte;

begin
for i:=1 to n do
 begin
  clrscr;
  writeln('INPUT Класс');
  readln(a[i].klass);
  writeln('INPUT Кол-во');
  readln(a[i].colvo);
  if pos(a[i].klass,'8')<>0 then inc(s,a[i].colvo);
  if pos(a[i].klass,'9')<>0 then inc(s1,a[i].colvo); end;
writeln('В восьмых классах разница на ',abs(s-s1),' детишЫчек');
end.

[leoneedka]

Спасибо большое!!!
но сёдня препод на паре заикнулся о том что нада вводить фамиилю, класс и так о каждом ученике и потом уже сотреть скока из этих введённых в 8 скока в 9 и разность. я поковыряю щас эту задачу но мот и не получица, если будет время и силы то мот поможешь ещё?