Дана целочисленная квадратная матрица. найти в каждой строке наибольший элемент и поменять его с элементом главной диагонали. (на паскале)

Begin   randomize;   for i : = 1 to n do     for j : = 1 to n do       x[i,j] : = random(100);     for i : = 1 to n do begin     indmax : = 1;     max : =x[i,1];     for j : = 2 to n do begin       if x[i,j]> max then begin         max : = x[i,j]; //наибольший элемент строки с номером i         indmax : = j;   //столбец, в котором находится наибольший элемент строки                             //с номером i       end;     end;   //смена элементов     x[i,indmax] : = x[i,i];     x[i,i] : = max;   end;   end;

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function pow(a, x: integer): integer; var  rez, i: integer; begin  rez : = 1;   for i : = 1 to x do      rez : = rez * a;   pow : = rez; end; function bintodec(a: string): integer; vari ,r: integer; begin  r : = 0;   for i : = length(a) downto 1 do      r : = r + strtoint(a[i]) * pow(2, length(a) - i);   bintodec : = r; end; var  s: array[1..100] of string;   i: integer; begin  s[1] : = '11001101';   s[2] : = '11100101';   s[3] : = '11110010';   s[4] : = '00100000';   s[5] : = '11110101';   s[6] : = '11110011';   s[7] : = '11100100';   s[8] : = '11100000';   s[9] : = '00100000';   s[10] : = '11100001';   s[11] : = '1110010';   s[12] : = '11100111';   s[13] : = '00100000';   s[14] : = '11101110';   s[15] : = '11100001';   s[16] : = '11110000';   s[17] : = '11100000';   s[18] : = '00101110';   for i : = 1 to 18 do      write(chr(bintodec(; end.

Для начала посчитаем количество символов строки ура! закончились   =27 символов (пробелы тоже считаем) 1)  в школе учат что информационный  вес символа =8 бит 27*8=216 бит = 27 байт =0,0263671875 кбайт   2)  но в стандарте  unicode информационный вес одного символа 2 байта = 16 бит 27*16=432 бит =   53 байт=0,0263671875 кбайт уточните у преподавателя информационный вес символа, и выбирайте нужный вам  вариант(информационный вес 8 бит - 1 вариант, 16 бит - 2 вариант)