Напишите программу, которая заполняет с клавиатуры массив А (3,3) словами разного размера и заменяет самое короткое слово главной диагонали на максимальное по длине слово всего массива. Выведите на экран исходный и полученный массивы.

program arr;

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

//макс. и мин. длина слова, индексы макс. элемента

max, min, imax, jmax: integer;

begin

max:=1; min:=100;

writeln ('Введите 9 слов');

for i: = 1 to 3 do

for j: = 1 to 3 do

begin

readln (a[i, j]);

if length (a[i, j]) > max then

begin

max: = length (a[i, j]); imax:=i; jmax:=j;

end;

if (length (a[i, j]) < min) and (i=j) then

begin

min: = length (a[i, j]);

end;

end;

for i: = 1 to 3 do

for j: = 1 to 3 do if j<3 then write (a[i, j] : 20)

else writeln (a[i, j] : 20);

writeln ();

for i: = 1 to 3 do

for j: = 1 to 3 do

begin

if (i = j) and (length (a[i, j]) = min) then a[i, j]: = a[imax, jmax];

if j < 3 then write (a[i, j] : 20) else writeln (a[i, j] : 20);

end

end.

Программа заменяет все самые короткие элементы диагонали на первый наибольший элемент.