Двумерный массив

[Yara24]

Помогите пожалуйста решить задачу на двумерный массив.
Дано: var c:array[1..5,1..5] of char
Заполнить массив следующим образом:
t m m m m
m t m m m
m m t m m
m m m t m
m m m m t

[ROMA2PVT]

uses
  Crt;
const
  N =5;
var
  i,j: integer;
    mas:array [1..n,1..n] of char;
    begin
    for i:=1 to n do
    begin
    for j:=1 to n do
    if i=j then
    begin
    mas[i,j]:='t';
    end
    else
    mas[i,j]:='m';
    end;
    writeln;
     for i:=1 to n do
    begin
    for j:=1 to n do
    begin
    write(mas[i,j],' ');
    end;
    writeln;
    end;
    readln;
    end.

[Yara24]

Спасибо большое!