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.
