Всимвольном массиве заменить все элементы с длиной более четырех символов последним элементом массива,полученный результат вывести(паскаль)​

program ArrayS;

var

 A: array of string;

 i: Integer;

 s: string;

begin

 s := '';

 i := 0;

 WriteLn ('Введите элементы массива через Enter. Пустое значение - окончание ввода:');

 repeat

   ReadLn (s);

   if s <> '' then begin

     Inc (i);

     SetLength (A, i);

     A [i - 1] := s;

   end;

 until s = '';

 for i := Low (A) to High (A) do

   if Length (A [i]) > 4 then

     A [i] := A [High (A)];

 WriteLn;

 WriteLn ('Результирующий массив:');

 for i := Low (A) to High (A) do

   Write (A [i], ' ');

 ReadLn;

end.