лабы / лаб5 / lab5_1

program lab5_1;
var
a: array of string;
n: string;
i,j,f: integer;
arr_size: integer = 0;
an: integer = 1;
temp_str: string = '';
bad_symbs: array[1..5] of string = (' ', '.', '!', ',', '?');
begin
Write('Введите Выражение: '); ReadLn(n);

// определяем количество слов
for i:=1 to Length(n) do
begin
if (i = 1) or (n[i] = ' ') then arr_size := arr_size + 1;
end;

// выделяем длину массива равную количеству слов
setLength(a,arr_size);

// разделяем введённую строку на отдельные слова, и добавляем их в массив
for i:=1 to Length(n) do
begin
// в случае если мы находим пробел или конец выражения, то добавляем сгенерированное слово в массив
if (n[i] = ' ') or (i = Length(n)) then
begin
// в случае если мы находим конец строки, то добавляем последний символ к временной переменной строки
if (i = Length(n)) then temp_str := temp_str + n[Length(n)];
a[an] := temp_str;
temp_str := '';
an := an + 1;
end
// в других случаях, мы добавляем к временной переменной строки символ
else
begin
f := 0;
for j:=1 to Length(bad_symbs) do
begin
if (n[i] <> bad_symbs[j]) then f := f + 1;
end;
if (f = Length(bad_symbs)) then temp_str := temp_str + n[i];
end;
end;

// сортируем по возрастанию массив по длине каждого слова. переиспользуем переменную temp_str для экономии памяти
for i:=1 to Length(a) do
begin
for j:=1 to Length(a)-1 do
begin
if (Length(a[j]) > Length(a[j+1])) then
begin
temp_str := a[j];
a[j] := a[j+1];
a[j+1] := temp_str;
end;
end;
end;

// длины слов делим на 2, потому что Length() возвращает длину строки в кирилице умноженную на 2
WriteLn('Длина самого короткого слова: ', Length(a[1]) div 2);
WriteLn('Длина самого длинного слова: ', Length(a[Length(a)]) div 2)
end.