Заменить буквой «a» все элементы, расположенные выше главной диагонали и не являющиеся цифрами - Pascal

program MatrixTrans;
 
var i, j, n, code: integer;
var v1: real;
var arrData: array[0..99, 0..99] of string;
 
begin
// Инициализация данных
   // Исходные данные
   Writeln('Введите размер матрицы:');
   Read(n);
   Randomize;
   Writeln('До преобразования');
   for i := 0 to n do
   begin
        for j := 0 to n do
        begin
             // Добавление символа случайным образом
             arrData[i, j] := Chr(Random(30) + 30);
             // Добавление дробного числа (для чистоты эксперимента)
             if(i = 0) and (j = 2) then arrData[i, j] := '1.5';
             Write(arrData[i, j]:10);
        end;
        Writeln('');
   end;
   
   // Обработка массива и вывод результата
   Writeln('После преобразования');
   for i := 0 to n do
   begin
        for j := 0 to n do
        begin
             Val(arrData[i, j],v1,code);
             if ((j > i) and (code <> 0)) or
                (arrData[i, j] = '.') then arrData[i, j] := 'a';
             Write(arrData[i, j]:10);
        end;
        Writeln('');
   end;
 
end.