Переделать код матрицы

Program Mat;
Uses crt;
Var A:array[1..7,1..3] of integer; kol,x,max,i,j,k:integer;
Begin
 
ClrScr; Randomize;
Write('x='); Readln(x);{ввод числа х}
For i:=1 to 7 do
For j:=1 to 3 do
Begin
A[i,j]:=Random(51);{генерируем произвольные значения элементов массива}
If A[i,j]>x then kol:=kol+1;{находим кол-во эл. больших, чем х}
k:=k+1;
Write(A[i,j]:4);
If k mod 3=0 then Writeln;
End;
i:=0;
Writeln('Nomera strok:');
Repeat
i:=i+1; max:=0;
For j:=1 to 3 do
Begin
If A[i,j]>max then max:=A[i,j];{находим наибольшие элементы строк}
End;
If max>x then Writeln(i);{номера строк}
Until i=7;
 
Write('kol-vo:',kol);
Readln;
End.

program Mat;
 
var
  A: array[1..7, 1..3] of integer;
  kol, x, max, i, j, k: integer;
 
begin
  
  Randomize;
  Write('x=');Readln(x);{ввод числа х}
  for i := 1 to 7 do
    for j := 1 to 3 do
    begin
      A[i, j] := Random(51);{генерируем произвольные значения элементов массива}
      if A[i, j] > x then kol := kol + 1;{находим кол-во эл. больших, чем х}
      k := k + 1;
      Write(A[i, j]:4);
      if k mod 3 = 0 then Writeln;
    end;
  i := 0;
  Writeln('Nomera strok:');
  repeat
    i := i + 1;max := 0;
    for j := 1 to 3 do
    begin
      if A[i, j] > max then max := A[i, j];{находим наибольшие элементы строк}
    end;
    if max < x then 
    begin
      Writeln(i);{номера строк}
      kol := kol + 1;
    end;
  until i = 7;
  
  Write('kol-vo:', kol);
  Readln;
end.