Известен вес каждого ученика из двух классов. Определить количество учеников в каждом классе, вес которых больше 50 кг

Const nmax=100;
Var A,B:array[1..nmax] of byte;
    i,n,m,k1,k2:byte;
Begin
    write('Введите кол-во учеников в 1 классе: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(51)+25;
      write(A[i]:3);
      if A[i]>50 then inc(k1);
    End;
    writeln;
    write('Введите кол-во учеников во 2 классе: ');readln(m);
    For i:=1 to m do
    Begin
      B[i]:=random(51)+25;
      write(B[i]:3);
      if B[i]>50 then inc(k2);
    End;
    writeln;
    writeln('В 1 классе учеников,чей вес >50 = ',k1);
    writeln('Во 2 классе учеников,чей вес >50 = ',k2);
    readln;
End.

var
  i, j, n, m: integer;
  c: array [1..2] of integer;
begin
  Randomize;
  for j := 1 to 2 do begin
    c[j] := 0;
    Write('Учеников в классе ', j, ': '); ReadLn(n);
    for i := 1 to n do begin
      m := Random(51) + 25;
      Write(m:3);
      if m > 50 then inc(c[j]);
    end;
    WriteLn;
  end;
  WriteLn('Учеников с весом >50 кг');
  for j := 1 to 2 do WriteLn(' - в классе ', j, ': ', c[j]);
end.