Задание в Ecxel. Напишите , формулы для следующих условий:
- для веса менее 400 кг – 0% от Суммы оплаты;
- для веса от 400 кг до 900 кг – 4 % от Суммы оплаты;
- для веса более 900 кг – 7% от Суммы оплаты.
Сумма оплаты - ячейка D3.

1) Начало;
2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента;
3) Подключение библиотеки randomize;
4) Запуск Первого цикла со счетчиком от 1 до 5;
4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5;
4.1.1) Заполнение первой строки массива рандомными значениями;
4.1.2) Заполнение первой строки String grid -a;
4.1.2) Сравниваем текущий элемент массива с MAX элементом;
4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то
Перезаписывеам MAX элемент на элемент массива;

Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива.
5) Выводим MAX элемент массива в Edit;

Как то так. Если не понятно что то  можно в лс или коменты.

PascalABC.NET
Программа сработает некорректно если слова будут разделены                       несколькими      пробелами или строка будет заканчиваться пробелом
const      c = ' '; 
var   
s : string;   
k,p : integer;    
begin 
writeln ('Введите строку'); 
readln (s); 
k := -1; 
p := 1; 
if (s <> '') and (s <> ' ') then   
begin   
while p <> 0 do     
begin       
k := k +1;       
p := PosEx (c,s,p+1);      
end;   
writeln (k+1,' word')    
end   
else   
writeln ('error string'); 
end.