Error 202, Stack overvlow error... Опции

[kent]

Столкнулся вот с такой ошибкой (что то со стеком)...

Вот задача:
Дана строка, состоящая из русских слов, разделенных пробелами (одним или
несколькими). Определить длину самого короткого|длинного слова.

Вот код:

uses crt;
type
    TWords = Array [1..100] of String;

{-----------------------------------------------------}
Procedure GetWords(S : String; var mas : TWords; var count : Integer);
var i,j : Integer;
begin
     i := 0;
     for j := 1 to Length(S) do begin
        if (j = 1) and (S[j] <> ' ') then
          inc(i)
        else if (j < Length(S)) and (S[j] = ' ') and (S[j + 1] <> ' ') then
          inc(i);
        if (S[j] <> ' ') then
          mas[i] := mas[i] + S[j];
     end;
     count := i;
end;
{-----------------------------------------------------}

{-----------------------------------------------------}
Function LengthShortestWord(S: String) : Integer;
var i,count : Integer;
    min : Integer;
    mas : TWords;
begin
     min := Maxint;
     GetWords(S,mas,count);
     for i := 1 to count do
        if (Length(mas[i]) < min) then
          min := Length(mas[i]);
     LengthShortestWord := min;
end;
{-----------------------------------------------------}


var S : String;
begin
     Clrscr;
     WriteLn('Input String:');
     ReadLn(S);
     WriteLn('Length Shortest Word:');
     WriteLn(LengthShortestWord(S));
     ReadKey;
end.

Почему она возникает?

Сообщение отредактировано: kent - 15.08.2005 12:01

[klem4]

Еще я думаю массив mas лучше объявить глобально перед описанием подпрограмм

[volvo]

Еще я думаю массив mas лучше объявить глобально перед  описанием подпрограмм

Я бы, если честно, не рекомендовал "глобализовать" переменные, иногда это как раз НЕ нужно делать.
kent, увеличивай размер стека (третий параметр директивы {$M ...})

А еще лучше - вот так:

{-----------------------------------------------------}
Function LengthShortestWord(S: String) : Integer;
Var
  mas : TWords;

  Procedure GetWords(var count : Integer);
  var i,j : Integer;
  begin
      i := 0;
      for j := 1 to Length(S) do begin
         if (j = 1) and (S[j] <> ' ') then
           inc(i)
         else if (j < Length(S)) and (S[j] = ' ') and (S[j + 1] <> ' ') then
           inc(i);
         if (S[j] <> ' ') then
           mas[i] := mas[i] + S[j];
      end;
      count := i;
  end;

var i,count : Integer;
    min : Integer;
begin
     min := Maxint;
     GetWords(count);
     for i := 1 to count do
        if (Length(mas[i]) < min) then
          min := Length(mas[i]);
     LengthShortestWord := min;
end;
{-----------------------------------------------------}