ww01031977

или еще меньше:
program masiv;
uses crt;
var c:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if i=j then write('t ') else write('m ');
end;
writeln;
end;
end.