Определить количество абитуриентов, сдавших вступительные экзамены только на "отлично"

program dz;
var k,n,j,d,r,i:integer;a:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;
    for j:=1 to n do begin
    for i:=1 to length(b[1][j]) do begin
    if b[i][j]='2' then c[i][j]:=2;
    if b[i][j]='3' then c[i][j]:=3;
    if b[i][j]='4' then c[i][j]:=4;
    if b[i][j]='5' then c[i][j]:=5; end;end;
  for j:=1 to n do
  for i:=1 to length(b[1][j]) do begin
  k:=k+c[i][j];
  if k mod r=5 then d:=d+1; end;
  writeln('количество отличников=',d);
  end.

program dz;
var k,n,j,d,r,i:integer;a:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;
    for j:=1 to n do begin
    for i:=1 to length(b[1][j]) do begin
    if b[i][j]='2' then c[i][j]:=2;
    if b[i][j]='3' then c[i][j]:=3;
    if b[i][j]='4' then c[i][j]:=4;
    if b[i][j]='5' then c[i][j]:=5; end;end;
  k:=0;  
  for j:=1 to n do
  d:=0;
  for i:=1 to length(b[1][j]) do begin
  k:=k+c[i][j];
  if k mod r=5 then d:=d+1; end;
  writeln('количество отличников=',d);
  end.

program dz;
var k,n,j,d,r,i,ci:integer;a,bi:string; b:array[1..256,1..256] of string; c:array[1..256,1..256] of integer;
  begin
  writeln('введите количество студентов');
  readln(n);
  writeln('введите количество оценок');
  readln(r);
  writeln('введите учеников и их оценки');
  
  for j:=1 to n do begin
  readln(a);
  b[1][j]:=a;
  end;  
  for j:=1 to n do begin
  ci:=1; bi:=b[1][j];
  for i:=1 to length(b[1][j]) do begin
    if bi[i]='2' then begin c[ci][j]:=2;ci:=ci+1;end;
    if bi[i]='3' then begin c[ci][j]:=3;ci:=ci+1;end;
    if bi[i]='4' then begin c[ci][j]:=4;ci:=ci+1;end;
    if bi[i]='5' then begin c[ci][j]:=5;ci:=ci+1;end;  
    end;end;
  d:=0; 
  for j:=1 to n do begin
   k:=0;
   for i:=1 to r do k:=k+c[i][j];    
   if k div r=5 then d:=d+1; 
  end;
  writeln('количество отличников=',d);
  end.