Таблица, Помогите доделать таблицу Опции

[Camaro]

Нужно чтобы при запуске программы выводилось следующие:
1) напишите кол-во студентов
2) напишите кол-во предметов
3) напишите имя первого ученика, потом второго и т.д.
4) напишите название первого предмета, второго и т.д.
5) напишите оценку первого ученика по первому предмету, второго ученика по первому предмету и т.д. и потом 1-го уч-ка по второму предмету и т.д.
6) и чтоб после этого появилась таблица с средним баллом учеников.
Я пытался сделать, но у меня немного не получилось:

Program ifit;
uses crt;
var sub:array[1...3] of string;
grades:array[1..3,1..3] of byte;
i,j,q:integer;
s:string;
begin
ClrScr;
for i:=1 to 3 do
begin
write<'kakoy predmet?'>;
readln<sub[i]>;
for j:=1 to 3 do
begin
repeat
write<'Student',j,' ocenka: '>;
readln<s>;
val<s,grades[i,j],q>;
if q <> 0 then writeln<'eto chislo'>;
until q=0
end;
end;
writeln;
wreteln<'predmet || student 1 || student 2 || student 3 || sredniy ball'>;
for i:=1 to 3 do
writeln<sub[i],'                         ',grades[i,1],'                     ',grades[i,2]
,                  ',grades[i,3],'                      ',
<grades[i,1]+grades[i,2]+grades[i,3]>/3:1:1>;
writeln<' Sredniy. bal                ',<grades[1,1]+grades[2,1]+grades[3,1]>/3:1:1,'                ',
<grades[1,2]+grades[2,2]+grades[3,2]>/3:1:1,'                ',
<grades[1,3]+grades[2,3]+grades[3,3]>/3:1:1>;

end.

Сообщение отредактировано: Lapp - 15.12.2010 14:25

[Lapp]

Я просто причесал твою прогу не вникая (и исправил < и > на ( и ) )
Кто-то может поможет по сути..

Program ifit;
uses
  crt;
var
  sub:array[1..3] of string;
  grades:array[1..3,1..3] of byte;
  i,j,q:integer;
  s:string;

begin
  ClrScr;
  for i:=1 to 3 do
  begin
    write('kakoy predmet?');
    readln(sub[i]);
    for j:=1 to 3 do
    begin
      repeat
        write('Student',j,' ocenka: ');
        readln(s);
        val(s,grades[i,j],q);
        if q <> 0 then writeln('eto chislo');
      until q=0
    end;
  end;
  writeln;
  writeln('predmet || student 1 || student 2 || student 3 || sredniy ball');
  for i:=1 to 3 do
  writeln(sub[i],'                         ',grades[i,1],'                     ',grades[i,2]
  ,'                  ',grades[i,3],'                      ',
  (grades[i,1]+grades[i,2]+grades[i,3])/3:1:1);
  writeln(' Sredniy. bal                ',(grades[1,1]+grades[2,1]+grades[3,1])/3:1:1,'                ',
  (grades[1,2]+grades[2,2]+grades[3,2])/3:1:1,'                ',
  (grades[1,3]+grades[2,3]+grades[3,3])/3:1:1);
end.