Разработать программу поиска прямой речи в тексте

CONST
  Chars = [':"','.-'];
VAR
  T: TEXT;
  Count: integer;
 
function NextWord:string;
var
  Ch: char;
begin
  Read(T,Ch);
  if (Ch in Chars) or eof(T)
    then NextWord:=''
    else NextWord:=Ch+NextWord;
end;
 
BEGIN
  Count:=0;
  ASSIGN(T, 'test.txt');
  RESET(T);
  repeat
    if NextWord<>'' then inc(Count);
  until eof(T);
  close(T);
  writeln('Íàéäåíî ',Count,' ïðåäëîæåíèé');
  readln;
END.

uses crt;
var s,s1:string;
i,i1,go:integer;
r:real;
begin
writeln('Ведите свой текст:');
readln(s);
clrscr;
go:=0;
i1:=1;
for i:=1 to length(s) do 
begin
if (s[i1]='"') and (go=0) then
begin
go:=1;
s1:=s1+'"';
i1:=i1+1;
end;
if (s[i1]='"') and (go=1) then
begin
go:=0;
s1:=s1+'",';
i1:=i1+1;
end;
if (s[i1]<>'"') and (go=1) then
begin
s1:=s1+s[i1];
i1:=i1+1;
end;
if (s[i1]<>'"') and (go=0) then
begin
i1:=i1+1;
end;
end;
clrscr;
delete(s1,length(s1),1);
writeln('Введенные цитаты: ',s1);
end.