Ошибка: переполнение программного стека

[Yana92]

uses crt;

var a:array[1..256,1..256] of string;
i,j,n,m,jmin : integer;
min:string;
begin
write('m=');
readln(m);
write('n=');
readln(n);
for i:=1 to n do
	for j:=1 to m do
		begin
			write('a[',i,' ',j,']=');
			readln(a[i,j]);
		end;

min:=a[1,1];
jmin:=1;
for i:=1 to n do
	for j:=1 to m do
		if a[i,j]>min
		then
			begin
				min:=a[i,j];
				jmin:=j;
			end;
writeln('The minimal element is in the ',jmin,' col');
for i:=1 to n-1 do
	for j:=1 to m-1 do
		if a[i,j]>a[i+1,j+1]
			then
				begin
					min:=a[i,j];
					a[i,j]:=a[i+1,j+1];
					a[i+1,j+1]:=min;
				end;

for i:=1 to n-1 do
begin
	for j:=1 to m-1 do
		write(a[i,j],' ');
	writeln;
end;
readkey;
end.

Паскаль выдает ошибку: Переполнение программного стека (Program1.pas, строка 0)
Помогите, пожалуйста. В информатике совсем ничего не понимаю (

[_Alerter_]

var a:array[1..256,1..256] of string;

Слишком большой размер массива

[Alex11223]

Кстати, в ABC и FPC комилируется и так. А Turbo Pascal вроде нет русской версии оО