Обработка символов

[Rik_Igle]

Доброе время суток!

Помогите решить проблему. Дан символьной файл, в котором хранится название игрушки и ее цена, следующего образца:

машинка 2р.
мяч 3р.
шарик 1р.

Мне нужно вывести на экран строки где цена больше или равна 3.

[danekne]

Никакой проблемы. Открываете файл, считываете и заносите в массив нужные данные. Выводите. Элементарная программа. Наработки где Ваши?

[Rik_Igle]

Элементарно, но я слаб в роботе со строками.
Мне нужно в W вносить значение при чтении строки:

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
S,W: string;
begin
  AssignFile(f, ST);
  Reset(f);
  Memo2.Clear;
  W:='6';
  while not EOF(f) do
  begin
        readln(f, S);
        if Pos(w,S) > 0 then memo2.Lines.Add(S);
        end;
    CloseFile(F)
end;

И делать проверку больше или меньше оно за число 3.

[Tagimasad]

Ввести строку символов. Количество символов в строке n. Вывести повторяющиеся символы и их количество.
Помогите пожалуйста, первый курс все-таки...

[Mad_Cat]

первый курс все-таки...

Поэтому не стоит привыкать к халяве! - Пробуй сам делать)

[Tagimasad]

Сообщение от Mad_Cat

Поэтому не стоит привыкать к халяве! - Пробуй сам делать)

пробовал я! безуспешно.. ни один из моих однокурсников не знает как решить

[Mad_Cat]

пробовал я!

Держи Разбирайся
В Паскаль ABC работает)

var ___:string;
_____:set of char;
__,____:integer;
______:integer;
begin
___:='Ya krevedko';
for __:=1 to length(___) do
begin
______:=1;
if not (___[__] in _____) then begin
_____:=_____+[___[__]];
for ____:=__+1 to length(___)-1 do
if ___[__]=___[____] then inc(______);
writeln(___[__],'  ',______);
end;
end;
readln;
end.

Результат

Y 1
a 1
1
k 2
r 1
e 2
v 1
d 1
o 1