Напишите программку, которая заполняет с клавиатуры массив А(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])gt; max then
begin
max:= length(a[i, j]); imax:=i; jmax:=j;
end;
if (length(a[i, j])lt; 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 jlt;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 lt; 3 then write(a[i, j] : 20) else writeln(a[i, j] : 20);
end
end.

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