Напишите программу, которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет самое короткое слово

program arr;var a: array [1..3,1..3] of string;//макс. и мин. длина слова, индексы макс. элементаmax,min, imax, jmax: integer;beginmax:=1; min:=100;writeln(\'Введите 9 слов\');

for i:= 1 to 3 do for j:= 1 to 3 dobeginreadln(a[i, j]);if length(a[i, j])> max then beginmax:= length(a[i, j]); imax:=i; jmax:=j;end;if (length(a[i, j])< min) and (i=j) then beginmin:= 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 beginif (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);endend.

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