дана матрица

Program zadacha;
Uses CRT;
type matr=array [1..10,1..10] of integer;
type mat=array [1..10,1..10] of char;
Var M:mat;z:byte;n,h:integer; p:char;
procedure menu (var z:byte);
begin
writeln;
writeln;
writeln('Äàíà ìàòðèööà ñèìâîëîâ Îïðåäåëèòü â êàêîé ñòðîêå áîëüøå âñåãî öèôð');
writeln;
writeln('1. Ââîä ìàòðèöû');
writeln('2. Âûâîä ìàòðèöû');
writeln('3. íàõîæäåíèå ñòîêè ñ ìàêñèìàëüíûì ýë-òîâ   ÷èñåë');
writeln('0. Âûõîä');
writeln;
writeln('Ââåäèòå íîìåð ïóíêòà');
readln(z);
end;
procedure vvod(var n:integer; var M:mat);
Var i,j:byte;
begin
Writeln('Ââåäèòå ðàçìåð ìàòðèöû ìåíüøå 5');
Readln (n);
For i:=1 to n do
begin
writeln;
For j:=1 to n do
begin
Writeln('Ââåäèòå ñèìâîë [i=',i,' J=' ,j,']');
Readln(M[i,j]);
end;
end;
end;
 
procedure vivod(M:mat;ii:integer);
Var i,j:byte;
begin
For i:=1 to n do
begin
writeln;
For j:=1 to n do
Write(M[i,j]:4);
end;
end;
 
 
 
 
 
 
 
Begin
z:=1;
While z<>0 do begin
menu(z);
case z of
1: vvod(n,M);
2: vivod(M,n);
3:
end;
end;
end.

val(matr[i,j],int,code)//int -должен быть типа integer или real
if code<>0 then writeln('Не число')
 else writeln('Число');