Указание слова в файле с максимальной долей гласных
Здравствуйте! Имеется вот такая задача:дан текстовый файл, каждая строка которого является предложением. В каждом предложении указать слово, в котором доля гласных максимальна.
Помогите пожалуйста отладить программу
Код:
program ts2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const gls=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
sogls=['e','u','i','o','a'];
var f:text;
S:string;
W:String;
i,ml,q,k:integer;
Function Proverka(str:String):Boolean;
Var rezult : Boolean;
i,n,m,j:byte;
Begin
for i:=1 to length(str) do
for j:=1 to length(str) do begin
m:=0;
n:=0;
if str[i] in gls then m:=m+1;
if str[j] in sogls then n:=n+1;
if n>=m then rezult:=true
else rezult:=false;
Proverka:=rezult; end;
{If (pos(str[1],copy(str,2,Length(str)-1)) > 0)
Then Result := True
Else Result := False;
DoubleFirstChar := Result; }
End;
begin
assign (f,'1.txt');
reset(f);
while not(eof(f)) do
begin
readln(f,S);
While pos(' ',S) <> 0 Do
Begin
If (S[1] <> ' ')
Then
Begin
W := copy(S,1,pos(' ',S)-1);
S := copy(S,pos(' ',S),Length(S)-Length(W));
If Proverka(W) Then Write(W,' ')
End
else S := copy(S,2,Length(S)-1);
End;
W := S;
If Proverka(W) Then Write(W,' ');
end;
close (f);
WriteLn;
ReadLn;
end.
Работу в строке, я нашёл, а вот с типизированным файлом нет. |
