Работа с файлами (паскаль)

[street_spirit]

Задача такова:
Написать программу, которая выдаёт на экран предложения из данного текстового файла, в которых нет запятых.

Я начал писать программу, но столкнулся с ошибкой переполнения стека (error 202), не знаю что делать, подскажите пожалуйста.

Мой код (не дописан):

program lab5;
type TCharSet = set of char;

const
max=800;

var
f:text;
str:array[1..max] of char;
chr:char;
n:string;
i:integer;
BegChr, EndChr:integer;
konec:TCharSet;


function LastIndex(s:array of char; sets:TCharSet; j:integer):integer;
 begin
  repeat
  inc(j);
  until s[j] in sets;
  LastIndex:=j;
 end;

procedure GetSent(s:array of char; n,k:integer);
 var predl:string;
 m:integer;
 begin
  for m:=n to k do
  predl[m]:=s[m];

  WriteLn(predl);
 end;


begin
konec:=['.','!','?'];

Writeln;
Assign(f,'file.txt');
Reset(f);

While not EOF(f) do
begin
 read(f,chr);
 str[i]:=chr;
 inc(i);
end;

i:=0;
While ord(str[i])<>0 do
begin
 Write(str[i]);
 inc(i);
end;

i:=0;
BegChr:=1;
While ord(str[i])<>0 do
begin
 EndChr:=LastIndex(str,konec,BegChr);

 GetSent(str,BegChr,EndChr);


 BegChr:=EndChr+2;
 inc(i);
end;

Close(f);

Readln;
End.

По замыслу: сначала считываем содержимое файла в массив символов, потом "выдираем" из массива предложение и, если в нем не содержатся запятые, то выводим его на экран. Дописал пока только до момента разбиения массива на предложения и столкнулся с этой ошибкой.
Пожалуйста, помогите разобраться.

[Stilet]

Предлагаю упростить по самые помидорки:

var f:file of char;s:string;c:char;
begin
 assign(f,'file1.txt');reset(f);
 while not eof(f) do begin
  read(f,c);
  s:=s+c;
  if с in ['.','!','?'] then begin
   if pos(',',s)=0 then writeln(s);
   s:='';
  end
 end;
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

Смысл понятен?

[street_spirit]

Stilet, да все предельно понятно. Спасибо Вам огромное.