Нужно дописать программу!

[Маx]

Добрый день. Помогите дописать программу пожалуйста. она должна считать количество элементов до введенного слова (слово вводится с клавиатуры). Текст вводится в 8 строк. Осталось дописать процедуру которая считала бы символы. Помогите пожалуйста.

program LAB_3;
uses crt;

var Dinam: ^String;
F,s: Text;
i,k: integer;
NameFile: string[10];
Slovo: string;


begin
ClrScr;
WriteLn;
Write('Vvedit` imya faily (do 10 symvoliv): ');
ReadLn(NameFile);
if Length(NameFile) = 0 then halt;
assign(F, NameFile+'.TXT');
rewrite(F);
WriteLn('Vvedit` ryadky: ');
New(Dinam);
for i := 1 to 8 do
begin
Write(i:2,': ');
ReadLn(Dinam^);
WriteLn(F, Dinam^);
end;
Close(F);
WriteLn;
WriteLn('Textoviy fail stvoreno. Natysnit` klavishy');
readkey;
ClrScr;
WriteLn;
Write('Vvedit` slovo do yakogo rahyvaty: ');
ReadLn(Slovo);
Assign(F, NameFile+'.TXT');
Reset(F);
WriteLn;
WriteLn('Vmist faily:');
WriteLn;
for i:=1 to 8 do
begin
readln(F,Dinam^);
writeln(Dinam^);
end;



Close(F);
Dispose(Dinam);
readkey;
end.

[whatever]

Если я правильно понял, из коментариев в программе, то так:

uses
  crt;
var Dinam: ^String;
 F,s: Text;
 i,k: integer;
 NameFile: string[10];
 Slovo: string;


 begin
 ClrScr;
 WriteLn;
 Write('Vvedit` imya faily (do 10 symvoliv): ');
 ReadLn(NameFile);
 if Length(NameFile) = 0 then halt;
 assign(F, NameFile+'.TXT');
 rewrite(F);
 WriteLn('Vvedit` ryadky: ');
 New(Dinam);
 for i := 1 to 8 do
 begin
 Write(i:2,': ');
 ReadLn(Dinam^);
 WriteLn(F, Dinam^);
 end;
 Close(F);
 WriteLn;
 WriteLn('Textoviy fail stvoreno. Natysnit` klavishy');
 readln;
 readkey;
 ClrScr;
 WriteLn;
 Write('Vvedit` slovo do yakogo rahyvaty: ');
 ReadLn(Slovo);
 Assign(F, NameFile+'.TXT');
 Reset(F);
 WriteLn;
 WriteLn('Vmist faily:');
 WriteLn;
 for i:=1 to 8 do
 begin
 readln(F,Dinam^);
 writeln(Dinam^);
 if Dinam^=slovo then
   break
 end;



 Close(F);
 Dispose(Dinam);
 readkey;
 end.

Осталось дописать процедуру которая считала бы символы. Помогите пожалуйста.

Какие символы?

она должна считать количество элементов до введенного слова (слово вводится с клавиатуры)

А в программе

Write('Vvedit` slovo do yakogo rahyvaty: ');

Рискну предположить, что это означает "введите слово, до которого распечатать". Код поправил изходя из этого.

И вообще, зачем тут динамическая строка?

[Маx]

но насколько я знаю sysutils для Делфи, а мне нужен Паскаль.
должна щитать символы текста(буквы, пробелы..).
та строка значит "ВВедите слово до которого щитать"
динамическая строка потому что в задании так написано)

[Маx]

Если говорить точнее, то нужно найти позицыю (введеного) слова в тексте, который состоит с 8 строк)

[whatever]

Тяжело с "иностанцами" общаться, так и не понял, что тебе нужно. Посмотри, такой вариант пойдет?

uses
  crt;
var Dinam: ^String;
 F,s: Text;
 i,k,count,countchar: integer;
 NameFile: string[10];
 Slovo: string;


 begin
 ClrScr;
 WriteLn;
 Write('Vvedit` imya faily (do 10 symvoliv): ');
 ReadLn(NameFile);
 if Length(NameFile) = 0 then halt;
 assign(F, NameFile+'.TXT');
 rewrite(F);
 WriteLn('Vvedit` ryadky: ');
 New(Dinam);
 for i := 1 to 8 do
 begin
 Write(i:2,': ');
 ReadLn(Dinam^);
 WriteLn(F, Dinam^);
 end;
 Close(F);
 WriteLn;
 WriteLn('Textoviy fail stvoreno. Natysnit` klavishy');
 readkey;
 ClrScr;
 WriteLn;
 Write('Vvedit` slovo do yakogo rahyvaty: ');
 ReadLn(Slovo);
 Assign(F, NameFile+'.TXT');
 Reset(F);
 WriteLn;
 WriteLn('Vmist faily:');
 WriteLn;
 count:=0;
 countchar:=0;
 for i:=1 to 8 do
 begin
 readln(F,Dinam^);
 writeln(Dinam^);
 count:=count+1;
 countchar:=countchar+length(dinam^);
 if Dinam^=slovo then
   break
 end;
 writeln(count);// позиция введеного слова в тексте, который состоит с 8 строк)
 writeln(countchar);//символы текста(буквы, пробелы..).
 
 Close(F);
 Dispose(Dinam);
 readkey;
 end.

Прошлый тоже рабочий, sysutils меняй на crt.

[Маx]

я сейчас напишу пример роботы програмы, чтоб было понятней:
Вводим строки:
1: собака
2: телефон
3: кот
4: яблоко
5: дерево
6: слон
7: жаба
8: лампа
Вводим слово до которого считать: кот
Программа должна ответить: до слова кот 13 символов.
Грубо говоря это позицыя слова кот -1

[Arhangel7]

var
F: Text;
i, k, e: integer;
NameFile: string[10];
Dinam, Slovo: string;


begin
k:=0;
  WriteLn;
  Write('Vvedit` imya faily (do 10 symvoliv): ');
  ReadLn(NameFile);
  if Length(NameFile) = 0 then EXIT;
  assign(F, NameFile+'.TXT');
  rewrite(F);
  WriteLn('Vvedit` ryadky: ');
  for i := 1 to 8 do
    begin
      Write(i:2,': ');
      ReadLn(Dinam);
      WriteLn(F, Dinam);
    end;
  Close(F);
  WriteLn;
  WriteLn('Textoviy fail stvoreno. Natysnit` klavishy');
  WriteLn;
  readln;
  Write('Vvedit` slovo do yakogo rahyvaty: ');
  ReadLn(Slovo);
  Assign(F, NameFile+'.TXT');
  Reset(F);
  WriteLn;
  WriteLn('Vmist faily:');
  WriteLn;
  for i:=1 to 8 do
    begin
      readln(F,Dinam);
      writeln(Dinam);
      if dinam <> Slovo then k:=k+length(Dinam)
      else
        begin
          e:=1; break;
        end;
    end;
    if E<>1 then k:=-1;
  Close(F);
  if k>=0 then writeln('до слова ', Slovo,' ',K,' символов');
  if K=-1 then writeln('нет такого слова');
  readln;
end.

как - то так

[whatever]

Сообщение от Маx

я сейчас напишу пример роботы програмы, чтоб было понятней:
Вводим строки:
1: собака
2: телефон
3: кот
4: яблоко
5: дерево
6: слон
7: жаба
8: лампа
Вводим слово до которого считать: кот
Программа должна ответить: до слова кот 13 символов.
Грубо говоря это позицыя слова кот -1

Тогда вот так:

uses
  crt;

var Dinam: ^String;
 F,s: Text;
 i,k,count,countchar: integer;
 NameFile: string[10];
 Slovo: string;


 begin
 ClrScr;
 WriteLn;
 Write('Vvedit` imya faily (do 10 symvoliv): ');
 ReadLn(NameFile);
 if Length(NameFile) = 0 then halt;
 assign(F, NameFile+'.TXT');
 rewrite(F);
 WriteLn('Vvedit` ryadky: ');
 New(Dinam);
 for i := 1 to 8 do
 begin
 Write(i:2,': ');
 ReadLn(Dinam^);
 WriteLn(F, Dinam^);
 end;
 Close(F);
 WriteLn;
 WriteLn('Textoviy fail stvoreno. Natysnit` klavishy');
 readkey;
 ClrScr;
 WriteLn;
 Write('Vvedit` slovo do yakogo rahyvaty: ');
 ReadLn(Slovo);
// Assign(F, NameFile+'.TXT'); //это тоже не нужно второй раз
 Reset(F);
 WriteLn;
 WriteLn('Vmist faily:');
 WriteLn;
 count:=0;
 countchar:=0;
 for i:=1 to 8 do
 begin
 readln(F,Dinam^);
 writeln(Dinam^);
 count:=count+1;
 countchar:=countchar+length(dinam^);
 if Dinam^=slovo then
 begin
   countchar:=countchar-length(dinam^);
   break
 end;
 end;
 writeln(countchar);//то, что тебе нужно, проверял на собаках, телефонах и котах.

 Close(F);
 Dispose(Dinam);
 readkey;
readln
 end.

Кстати, вот с этим

Грубо говоря это позицыя слова кот -1

в корне не согласен. Позиция слова кот равна трем, так как он находится в третьей строке:

собака
телефон
кот
яблоко
дерево
слон
жаба
лампа

Вот если бы эти 8 слов писались в файл в одну строчку,

собака телефон кот яблоко дерево слон жаба лампа

тогда да, "позиция слова кот-1", но метод решения был бы совершенно другой.

[Маx]

Спасибо большое очень помогли!

[Маx]

еще один вопрос. А как сделать так чтобы считало еще в виде, например, стиха, чтобы в каждой строке было по несколько слов, а не одно как в придыдущем примере?