Массивы

[Студентка@]

Помогите с задачкой,пожалуйста!Дан массив, элементами которого являются строки, состоящие из слов и знаков препинания. Упорядочить его по возрастанию средней длины слов в строках.Спасибо за внимание!

[eoln]

состоящие из слов и знаков препинания

Я так понимаю пробелов нет? Слово1,слово2,слово3
Ну тогда вот так (лучше слова в Delphi вводить на англ яз)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=5;

var
  mas: array[1..n]of string;
  i, j, leng, num: integer;
  s, tmp: string;

function sred(st: string): real;
var
  k, l, d: integer;
  s0: string;
begin
  d := 1;
  k := 0; //количество слов
  l := 0; //общая длина всех слов
  st := st + '.';
  repeat
    s0 := copy(st, d, 1);
    //знаки препинания могут быть любыми из перечисленных
    if (s0 = ',') or (s0 = '.') then begin
       inc(k);
       l := l + d - 1;
       delete(st, 1, d);
       d := 0;
    end;
    inc(d);
  until d > length(st);
  result := l/k; {sred := l/k - если в паскале}
end;

begin
  for i := 1 to n do readln(mas[i]);
  for i := 1 to n do begin
    num := i;
    for j := 1 to n do
      if sred(mas[i]) < sred(mas[j]) then begin
      num := j;
      tmp := mas[i];
      mas[i] := mas[num];
      mas[num] := tmp
    end;
  end;
  for i := 1 to n do writeln(sred(mas[i]):5:2, ' ', mas[i]);
  readln
end.

[Serge_Bliznykov]

Отлично!
несколько маленьких замечаний:
1) нет проверки на пустую строку в массиве.
2) строчка может быть и не пустой, но состоять только из знаков препинания.
в этих двух случаях я бы возращал sred нулевой.

if k=0 then
  sred := 0
else
  sred := l/k;

и пустые строчки стали бы первыми.
3)

result := l/k; {sred := l/k - если в паскале}

а чего сразу не написать универсально:
sred := l/k - это и в Дельфи прекрасно отработает ;-)
4) я бы всё таки пробелы добавил.
и вообще, так, на мой взгляд нагляднее, проще и универсальнее:

const
  WordDelimiters : set of char = [' ',',','.']; {можно сюда добавить и тире, и точку с запятой и двоеточие и что угодно}
...
   s0 := copy(st, d, 1);
   if s0 in WordDelimiters then begin
   ....