В той матрице, на главной диагонали которой все цифры, найти наименьшую и удалить соответствующую строку - Pascal ABC - Ответ 9932856

Program proizvedenie;
uses crt;
const n=3;
Type Matrix=array [1..n, 1..n] of char;
Var
  A, B, C: matrix;
  i, j: byte;
  trans: char;
procedure matr(var d: matrix);
Var i,j:integer;
begin
Writeln('');
For i:=1 to N do
For j:=1 to N do
begin
Write('[',i,',',j,']=');
Readln(d[i,j]);
end;
writeln;
end;
 
function find(d: matrix): boolean;
Var i,j:integer;
begin
for i := 1 to N do
for j := 1 to N do
if(d[i, j] in ['a', 'e', 'u', 'i', 'y', 'o', 'E', 'U', 'I', 'O', 'A', 'Y', 'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э','ю','я','А','Е','Ё','И','О','У','Ы','Э','Ю','Я']) then begin
result := true;
break;
end;
end;
 
procedure transp(var D: matrix);
Var i,j:integer;
begin
for i:= 2 to N do
for j :=1 to i-1 do begin
trans := d[i, j];
d[i, j] := d[j, i];
d[j, i] := trans;
end;
end;
 
begin
clrscr;
matr(a);
matr(b);
matr(c);
if(find(a)) then transp(a);
if(find(b)) then transp(b);
if(find(c)) then transp(c);
for i := 1 to N do begin
for j := 1 to N do write(a[i, j], ' ');
writeln('');
end;
writeln('');
for i := 1 to N do begin
for j := 1 to N do write(b[i, j], ' ');
writeln('');
end;
writeln('');
for i := 1 to N do begin
for j := 1 to N do write(c[i, j], ' ');
writeln('');
end;
readln;
end.