Паскаль, массивы

[Siegwell]

Есть задача - Написать программу, используя массив. Описание задачи: Имеем оценки m студентов по n предметам, m=6, n=3. Узнать количество успевающих студентов, которые имеют право на получение стипендии. Право на стипендию имеют студенты с средним балом 4 и больше (5 бальная система)

Очень срочно нужно, завтра сдавать.

Пожалуйста, просто напишите код программы без вопросов, очень прошу!

[challengerr]

program b;
uses crt;
var
a1:array[1..6] of array[1..3] of single;
i,j:integer;
s:single;
begin
//инициализация значениями
for i:=1 to 6 do begin for j:=1 to 3 do begin a1[i][j]:=5.0; end;end;
for i:=1 to 6 do begin s:=0; for j:=1 to 3 do begin s:=s+a1[i][j]; end; s:=s/3; if s>4.0 then begin writeln('est stipendia'); end; end; end.

Примерно так

[Stilet]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
const m=6;n=3;
type
    r=record
    name:string;
    balls:array[1..n] of byte;
    stepuha:boolean;
  end;

var
  a:array[1..m] of r;
  i,j,sr:integer;
begin
  for i:=1 to m do begin
   write('Студент: '); readln(a[i].name);
   write('Баллы: '); sr:=0; for j:=1 to n do begin readln(a[i].balls[j]); sr:=sr+a[i].balls[j]; end;
   if (sr div n)>=4 then a[i].stepuha:=true else a[i].stepuha:=false;
  end;
  writeln('Степуху получат: ');
  for i:=1 to m do begin
   if a[i].stepuha then
   write(a[i].name,', ');
  end;

  readln;
end.