Написать лексический анализатор к уже имеющейся программе

program p1;
 
uses Matrices;
 
var
  a, b, c : TMatrix;
 
 
{ОСНОВНАЯ ПРОГРАММА}
BEGIN
  randomize;
  writeln('первая матрица:');
  input(a);
  output(a);
  writeln('вторая матрица:');
  input(b);
  output(b);
  writeln('сумма матриц:');
  c := add(a, b);
  output(c);
  writeln('разность матриц:');
  c := sub(a, b);
  output(c);
  writeln('максимальный элемент первой матрицы: ', max(a));
  writeln('максимальный элемент второй матрицы: ', max(b))
END.

unit Matrices;
 
interface
 
const
  n = 4;
  m = 3;
type
  TMatrix = array[1..n, 1..m] of integer; {свой тип}
  
  procedure input(var z : TMatrix);
  procedure output(z : TMatrix);
  function add(z, x : TMatrix) : TMatrix;
  function sub(z, x : TMatrix) : TMatrix;
  function max(z : TMatrix) : integer;
 
implementation
 
{ввод}
procedure input(var z : TMatrix);
var i, j : integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      z[i,j] := random(100)
end;
 
{вывод}
procedure output(z : TMatrix);
var i, j : integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do write(z[i,j]:4);
    writeln
  end
end;
 
{сложение}
function add(z, x : TMatrix) : TMatrix;
var i, j : integer;
    temp : TMatrix;
begin
  for i := 1 to n do
    for j := 1 to m do
      temp[i,j] := z[i,j] + x[i,j];
  add := temp
end;
 
{вычитание}
function sub(z, x : TMatrix) : TMatrix;
var i, j : integer;
    temp : TMatrix;
begin
  for i := 1 to n do
    for j := 1 to m do
      temp[i,j] := z[i,j] - x[i,j];
  sub := temp
end;
 
{специфич. операция поиск максимума в матрице}
function max(z : TMatrix) : integer;
var i, j, temp : integer;
begin
  temp := -1000;
  for i := 1 to n do
    for j := 1 to m do
      if z[i,j] >= temp then temp := z[i,j];
  max := temp
end;
 
 
end.