как ввести матрицу автоматически?

[Julichka1k]

writeln('хотите заполнить матрицу автоматически?');
 readln('да' or 'нет');
      if ('нет')then
        begin

 writeln('введите элементы маирицы');
 for i:=1 to n do
  for j:=1 to m do
begin
   write('a[',i,',',j,']= ');
   readln(a[i,j]);
end;
  else
     begin
                               randomize;
                                for i := 1 to n do
                                  for j := 1 to n do
                                   a[i, j] := random(21)-20;
     end;

почему не работает?

[Mad_Cat]

writeln('хотите заполнить матрицу автоматически?');
readln(x);
if (x='нет')then
begin

writeln('введите элементы маирицы');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
else
begin
randomize;
for i := 1 to n do
for j := 1 to n do
a[i, j] := random(21)-20;
end;

почему не работает?

[Julichka1k]

Пишет,что "операция непрbменима к операндам данного типа"

[Stilet]

На какой строке пишет?

[Julichka1k]

if (x='нет')then

"операнды имеют неприводимые типы"

в этой строке

[ByAlex]

Сообщение от Julichka1k

if (x='нет')then

"операнды имеют неприводимые типы"

в этой строке

Переменная x у тебя типа string?

И вот еще что, забыли один end!

writeln('хотите заполнить матрицу автоматически?');
readln(x);
if (x='нет')then
begin
   writeln('введите элементы маирицы');
   for i:=1 to n do
      for j:=1 to m do
      begin
         write('a[',i,',',j,']= ');
         readln(a[i,j]);
      end;
end
else
begin
   randomize;
   for i := 1 to n do
      for j := 1 to n do
         a[i, j] := random(21)-20;
end;

[Julichka1k]

да теперь работает!

а как сделать чтоб числе были не таки:
у меня вот что получилось матрица 2 на 2
Данная матрица
-1.0E+000-1.4E+001
-1.7E+001-1.1E+001

[ByAlex]

Сообщение от Julichka1k

да теперь работает!

а как сделать чтоб числе были не таки:
у меня вот что получилось матрица 2 на 2
Данная матрица
-1.0E+000-1.4E+001
-1.7E+001-1.1E+001

Округляй, при выводе делай так - write(Arr[i,j]:2:2)!

[Julichka1k]

begin
randomize;
for i := 1 to n do
for j := 1 to n do
a[i, j] := random(21)-20;
end;



что то я не пойму, а куда вставить write(Arr[i,j]:2:2)

[Mad_Cat]

begin
randomize;
for i := 1 to n do begin
for j := 1 to n do begin
a[i, j] := random(21)-10;
write(A[i,j]:4:1);
end;
writeln;
end;