работа со строками в Memo

[ddtpoison]

В Memo есть список студентов ("Иванов П.А. 5 4 5 3 5").
Цифры это оценки.
Как удалить ненужные строки, не отвечающие параметрам поиска?

1) список студентов, сдавших экзамены только на «отлично»;
2) список студентов, имеющих тройки;
3) список студентов, имеющих двойки, при этом студент, имеющий более чем одну двойку, исключается из списка.

спс заранее!

[Greblin]

Парсишь каждую строчку, если не удовлетворяет условиям, вызываешь

Memo1.Lines.Delete(numberofline);

[ddtpoison]

2Greblin, спасибо, но меня интересовало, как можно в строке определить что все цифры допустим 5 или как узнать что есть повторения n-ой цифры. (p.s. в массив загонять и мутить через него? или есть другой метод?)

  with Memo.Lines do
    for i := 0 to Memo.Lines.Count do
      if pos('3',Strings[i]) = 0 then
        Memo.Lines.Delete(i);

удаляет по 50% строк =\ где туплю?

[N!ckeL]

удаляет по 50% строк =\ где туплю?

for i := 0 to Memo.Lines.Count-1 do   
 if pos('3',Memo.Lines.Strings[i])<>0 then   
    Memo.Lines.Delete(i);

как узнать что есть повторения n-ой цифры

for i := 0 to Memo.Lines.Count-1 do 
begin  
 for i1:=1 to 5 do
  begin
   if pos(inttostr(i1), memo1.lines.strings[i])<>0 then
    if pos(inttostr(i1), copy(memo1.lines.strings[i], pos(inttostr(i1), memo1.lines.strings[i]), length(memo1.lines.strings[i])))<>0 then
//повторяются
  end;
end;