"M" w macierzy :)

mam taki problem... oto kod:

program Mat;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 matrix: array[1..30,1..30] of char;
 i,j,n,m: integer;

begin
Write('Podaj ilosc wierszy: ');
 Readln(n);
Write('Podaj ilosc kolumn: ');
 Readln(m);

 for i:=1 to n do
  for j:=1 to m do
   if (j=1) or (j=m) or ((i=j) and (i<(n div 2)+1)) or ((i=m-j+1) and (i<(n div 2)+1)) then matrix[i,j]:=('*') else matrix[i,j]:=(' ');

 for i:=1 to n do
 begin
  for j:=1 to m do
   Write(matrix[i,j],' ');
  Writeln;
 end;
 Readln;
end.

Ten programik ma za zadanie wyswietlac na ekranie monitora literke "M" w macierzy... i za kazdym razem jak sie wpisze y kolumn i x wierszy ma wysiwetlac pelne M (no bez jednego znaku w zaleznosci czy moze czy nie). W kazdym badz razie prosze o pomoc, gdyz nie umiem sie dopatrzyc bledu!!!! cos mi sie kiełbasi w tym wszystkim... za długo chyba siedze po nocach w delphi....

pozdrawiam ;)

Trochę tutaj mało zabezpieczeń... Tzn. masz tablicę 30x30, ekran (okienko konsolowe) jest 80x25, a nigdzie nie sprawdzasz, jakie są n i m. No a do tego jak to będzie szersze niż wyższe, to też się będzie chrzanić. No i to by było tyle.