Посимвольная обработка строк

[yana1996]

Дано: в текстовом файле box.txt находится текст на русском языке. С клавиатуры вводится число К.
Требуется: написать подпрограмму, которая по заданной строке и символу формирует запись из трех полей. Первое поле – К-ое слово в строке, второе поле - количество гласных букв в этом слове, третье поле - длина этого слова.
Используя эту подпрограмму, сформировать компонентный файл kor.dat, K-ым элементом которого является запись, полученная описанным выше способом из К-ой строки файла box.txt.
Вывести полученный компонентный файл на экран.

помогите пожалуйста

на этой недели сдать надо .....

[taras-proger]

Сначала почитай годиков 10 названия других тем, подумай. Потом создавай. Или ты боишься ответов? Так есть вариант ещё лучше: вообще не постить вопроса.

[Stilet]

yana1996

Яна, твои пробы увидеть можно? Хоть что-нибудь.

[yana1996]

procedure WordByNum(s:string;n:integer;var ress:string);
var i,k:integer;
begin
i:=1;
k:=1;
while (s[k]=' ')or (k<=Length(s)) do
        inc(k);
while (i<n)and(k<=Length(s)) do
    begin
    while (s[k]<>' ')or (k<=Length(s)) do
        inc(k);
    while (s[k]=' ')or (k<=Length(s)) do
        inc(k);
    if k<=Length(s) then
        inc(i); 
    end;
ress:='';
if k<=Length(s) then
    while (s[k]<>' ')or (k<=Length(s)) do
        begin
        ress:=ress+s[k];
        inc(k);
        end;
end;

Находит слово в строке по номеру

[Stilet]

Хорошо. Теперь смотри:
Опиши структуру:

Type
 TRec=record
   s:string 
   k,len:integer;
 end;

Переменные:

var f:file of TRec; Rec:TRec; k:integer;s:string;

И цикл:

 readln(k);
 Assign(f,'File'); Rewrite(f);
 while k>0 do begin
  readln(s);
  WordByNum(s,Rec.k,Rec.s);
  write(f,Rec); 
  dec(k);
 end;
 
 reset(f); while not eof(f) do begin read(f,rec); writeln(Rec.s,Rec.k,rec.len); end;
 close(f);
 readln;

И не забудь добавить в своей процедуре поиск колва гласных.

if pos(s[i],'уеоаыияю')<>0 then inc(Glas);

Где glas - var параметр, такой же как и var ress
Идея ясна?

[yana1996]

спасибо большое, все ясно пока что)

f:file of TRec; вылазит ошибка
Typed files cannot contain reference-counted types.

[come-on]

Что не понятно в ошибке?

[yana1996]

как её исправить?

[come-on]

руками
TRec=record
s:string[xxx]

[Stilet]

Typed files cannot contain reference-counted types.

А у тебя какой паскаль?