Строки_символы

[Doholyan]

Господа!
очень нужно... разъеснение!!
Дан: текст стостоящий из (string) тип, к примеру три строки.
Нужно: перевести Char [массив]. то есть каждая буква будит иметь
индыкс(integer)
У меня считывает ТОЛЬКО первые символы строки!!!
прописывать программу не нужно только намекните

Взорании болгодарен Дмитрий!!!

[__STDC__]

строка типа string это массив символов (char)... что нужно вам? непонятно

если у вас есть

s:string;

то s[1], s[2], ... , s[length(s)] имеют тип char

[Doholyan]

К примеру { бла-бал-бла}string сохранен на диске в текстовом формате.Так!
теперь нужно....сделать б[1]л[2]а[3]-[4] и так далее,но что бы они были
char типом

[__STDC__]

бред несете... сформулируйте нормально вопрос...

var
	s:string;
	i:byte;
begin
	s := 'Hello. I am array of char';
	for i:=1 to length(s) do
		writeln(s[i]);
	readln;
end.

[Doholyan]

к примеру..
в тексте нужно посчитать сколько раз втречаете буква "икс"
"икс" являеться символом

[__STDC__]

..... вы мои сообщения читаете?

const 
	fin = 'in.txt';
var
	s:string;
	f:text;
	i,k:byte;
begin
	assign(f,fin);
	reset(f);
	while not(eof(f)) do begin
		readln(f,s);
		for i:=1 to length(s) do
			if (s[i] = 'x') then
				inc(k);
	end;
	close(f);
	writeln(k);
	readln;
end.

или

const
	fin = 'in.txt';
var
	c:char;
	f:text;
	k:byte;
begin
	assign(f,fin);
	reset(f);
	while not(eof(f)) do begin
		read(f,c);
		if (c = 'x') then
			inc(k);
	end;
	close(f);
	writeln(k);
	readln;
end.

[Doholyan]

да....читал интернет тормоз как и я!

[Doholyan]

__STDC__СПАСИБО!!!!! ГРОМАДНОЕ Получилось!!!!!