Скажу одно: жесть прога.
Код:
state:array[1..100, 1..100] of string;
- зачем? когда массив 4х4? Зачем текстовые строки?
А это к чему?
Код:
block:='';
for a:=1 to 4 do
for b:=1 to 4 do
block:=block+state[a,b];
memo1.Lines.Add(block);
А если символы будут непечатные?