Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряд

const n = 10;
var a: array [1..n] of array [1..100] of integer;
    b: array [1..n] of integer;
    i, j, m: integer;
begin
  randomize;
  for i := 1 to n do begin
    m := random(100) + 1;
    b[i] := 0;
    for j := 1 to m do begin
      a[i][j] := random(98) + 1;
      write(a[i][j], ' ');
      if a[i][j] > b[i] then
        b[i] := a[i][j];
    end;
    writeln;
  end;
  writeln; writeln;
  for i := 1 to n do
    write(b[i], ' ');
end.

begin
  var a := Range(1, 10).Select(m -> Range(0, Random(20)).Select(v -> Random(0, 99)).ToArray).ToArray;
  writelnformat('{0}{2}Максимальные: {1}', a.Select(v -> v.JoinIntoString(' ')).JoinIntoString(NewLine),
    a.Select(v -> v.Max).JoinIntoString(' '), NewLine);
end.

const n = 10;
var a: array [1..n] of array of integer;
    b: array [1..n] of integer;
begin
  for var i := 1 to n do begin
    b[i] := 0;
    SetLength(a[i], Random(2,15));
    for var j := 0 to a[i].Length - 1 do begin
      a[i][j] := random(0,99);
      write(a[i][j], ' ');
      if a[i][j] > b[i] then
        b[i] := a[i][j];
    end;
    writeln;
  end;
  writeln;
  for var i := 1 to n do
    write(b[i], ' ');
end.

Program cal;{Десять раз генерировать ряд случайных чисел от 0 до 99 . 
Каждый ряд также должен иметь произвольную длину . 
В каждом ряде следует найти максимальное число . 
Сохранить только максимальные числа и вывести их на экран.} 
const n = 10000; 
type 
tyt=^masssiv; 
my=^lol; 
masssiv=array [1..n] of array [1..100] of integer; 
lol= array [1..n] of integer; 
var i,j,Sz:integer; 
a:tyt; 
b:my; 
begin 
new(a); 
writeln('Введите исходный массив'); 
readln(Sz); 
for i := 1 to Sz do 
for j := 1 to Sz do 
randomize; 
a^[i][j] := random(98)+1; 
write(a^[i][j], ' '); 
if a^[i][j] > b^[i] then 
b^[i] := a^[i][j];  
writeln; 
for i := 1 to n do 
write(b^[i], ' '); 
end.
 
[size="1"][color="grey"][I]Добавлено через 21 минуту[/I][/color][/size]
В чём мая ошибка ?
program cal;{Десять раз генерировать ряд случайных чисел от 0 до 99 . 
Каждый ряд также должен иметь произвольную длину . 
В каждом ряде следует найти максимальное число . 
Сохранить только максимальные числа и вывести их на экран.} 
const
  n = 10000;
 
type
  tyt = ^masssiv;
  my = ^lol;
  masssiv = array [1..n] of integer;
  lol = array [1..n] of integer;
 
var 
i,j:integer;
  a: tyt; 
  b: my;
 
begin
  new(a); 
      for i := 1 to n do 
      for  j := 1 to n do
  a^[i] := random(0,99); 
  a^[j] := random(0,99);
  write(a^[i], ' ');
  write(a^[j], ' ');
   if a^[j]> b^[i] then
   if a^[i] > b^[j] then
    b^[i] := a^[j];
    b^[j]:=a^[i];
  writeln; 
  for i := 1 to n do 
    write(b^[i], ' ');
end.

var a: Integer;

const
  n = 100;
 
type
  tyt = ^massiv;
  massiv = array [1..n] of integer;
 
var
  i,Sz: integer;
  a:tyt;
 
begin
  new(a);
  writeln('Введите исходный массив');
  readln(Sz);
  for i := 1 to n do
    a^[i] := random(0, 99);
  for i := 1 to n do
    write(a^[i], ' ');
end.