А что непонятно? Первый блок и внешний цикл реализуются так:
Код:
for i:= 0 to imax do
begin
...
end;
где i - индекс массива частот s[i].
Остальное попробуй продолжить сам. Главное, не то, сгорит или не сгорит диплом, а нужно ли тебе программирование.