Строки. Помогите, пожалуйста.

[puporev]

Поскольку автору темы нужны знания по работе со строками, добавлю немного от себя.
При работе со строками часто в задании на выделение слов из строки четко не описана структура строки, а именно как разделены слова, то ли они идут через один пробел, то ли через запятую, то ли через запятую+пробел. Кроме того при вводе пользователь может ошибиться и напечатать два пробела, или два разделителя и т.д.
Чтобы избежать ошибок при работе программы я кроме той хитрости с пробелами в конце и начале слова, что применил eoln, еще делаю следующее:
1.Заменяю все разделители на пробелы.
2. Удаляю лишние пробелы.
Из любой строки получается строка типа пробел-слово-пробел-слово-пробел, с которой легко работать.
Вот пример усовершенстванного кода, приведенного выше.

uses crt;
const
    rzd = ['.',',',';',':','?','!'];//разделители слов без пробела
    NoSlovo = 'INFORMATION';
var
  s, slovo: string;
  d, f, i: integer;
  mas: array[1..250] of string;//статический массив
begin
  write('s = ');
  readln(s);
  s := ' ' + s + ' '; 
//вставляем кусок кода
\- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\
  for i:=length(s) downto 1 do
      begin
        if s[i] in rzd then s[i]:=' ';//замена разделителей на пробелы
        while pos('_ _',s)>0 do   
        delete(s,pos('_ _',s),1); //удаление лишних пробелов
      end;
\- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\
  f := 0;//величина массива
  repeat
    d := pos('_' s);//ищем начало слова
    delete(s, 1, d);//удаляем всё до этого слова
    if s = '' then break;//если ничего не осталось прерываем цикл repeat
    for i := 1 to length(s) do
    if s[i] ='_' then  //здесь изменим
    begin
      slovo := copy(s, 1, i-1);
      break
    end;
    if slovo <> NoSlovo then//если слово отлично от 'INFORMATION'
    begin
      inc(f);//передвигаемся к следующей ячейки массива
      mas[f] := slovo//и записываем туда наше слово
    end
  until d = 0;
  if f = 0 then//если массив пустой
    write('not found') else//пишем нет слов
    for i := 1 to f do writeln(mas[i]);//иначе выводим массив
  readln
end.

[Dexterello]

спасибо большое

[Dexterello]

Последняя. Честное слово =)
Выяснить какое слово встречается в строке раньше - с минимальным или наибольшим количеством символов.

[eoln]

Снова чуть изменим

uses crt;
const
    rzd = ['.',',',';',':','?','!',' '];
var
  s, slovo, maxSlovo, minSlovo: string;
  d, f, i, max, min: integer;
  mas: array[1..128] of string;
begin   
  write('s = ');   
  readln(s);   
  s := ' ' + s + ' ';
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  for i:=length(s) downto 1 do   
      begin   
        if s[i] in rzd then s[i]:='_';
        while pos('__',s)>0 do
        delete(s,pos('__',s),1);
      end;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  f := 0;
  repeat
    d := pos('_', s);
    delete(s, 1, d);   
    if s = '' then break;   
    for i := 1 to length(s) do   
    if s[i] ='_' then
    begin   
      slovo := copy(s, 1, i-1);   
      break   
    end;
      inc(f); //перемещаемся к следующей ячейки массива
      mas[f] := slovo //и записываем туда слово
  until d = 0;   
  max := 1; //номер самого длинного слова в начале примим = 1
  maxSlovo := mas[1]; //и запомним его
  min := 1;//номер самого короткого слова в начале примим = 1
  minSlovo := mas[1]; //и запомним его
  for i := 2 to f do //начиная со второго слова проверяем
  begin
    if length(mas[i]) > length(maxSlovo) then//если длиннее 
    begin
      maxSlovo := mas[i];//запоминаем новое самое длинное слово
      max := i //и его номер
    end;
    if length(mas[i]) < length(minSlovo) then//если короче 
    begin
      minSlovo := mas[i];//запоминаем новое самое короткое слово
      min := i //и его номер
    end
  end;
  if min < max then//если номер минимального раньше, то выводим
  writeln('min = ', minSlovo, '  max = ', maxSlovo) else
  if min > max then //далее если номер минимального позже, то выводим
  writeln('max = ', maxSlovo, '  min = ', minSlovo) else
  writeln('ne opredeleno');//это если все слова равной длины
  readln
end.

[Dexterello]

а без модуля crt можно?

[eoln]

Можно. Эт он случайно тут оказался ))

[Dexterello]

спасибо ОГРОМНОЕ =)

[Dexterello]

я просто ещё операторы не все знаю... а inc(f) что делает?

[eoln]

inc(f) увеличивает f на 1 (f := f + 1)
Стандартные функции в help'e хорошо описаны, советую книги почитать - пригодится для поступления