ПОМОГИТЕ

[romabash]

Я нуб в програмированиии прошу помочь написать
условия Последнее время Артем увлекается шифрами. Вот и сейчас, когда его папа
захотел увидеть оценки сына за месяц по информатике, Артем предоставил оценки
в зашифрованном виде.
В зашифрованном виде список оценок представляет собой строку s из цифр
‘0’ и ‘1’. Зашифровывая очередную оценку, Артем дописывает в конец строки s
определенную последовательность цифр из нулей и единиц:
• при шифровании оценки «два» он дописывает к s строку «0»,
• при шифровании оценки «три» он дописывает к s строку «100»,
• при шифровании оценки «четыре» он дописывает к s строку «101»,
• при шифровании оценки «пять» он дописывает к s строку «11».
Оценок «единица» («кол») Артем не получал. При шифровании очередной оцен-
ки соответствующая последовательность цифр из нулей и единиц дописывается без
пробелов и каких-либо других разделителей.
К счастью, папа Артема — программист. Он без труда может расшифровать
оценки сына и сделать вывод о его успеваемости. Известно, что одну из оценок (от
двух до пяти) Артем получил большее количество раз, чем любую другую. Напи-
шите программу, которая расшифровывает заданную последовательность оценок
и находит чаще других встречающуюся оценку.
Формат входных данных
Единственная строка входных данных содержит s — зашифрованную после-
довательность оценок. Строка s имеет длину от 1 до 200 цифр включительно.
Гарантируется, что s может быть полностью расшифрована.
Формат выходных данных
В единственную строку выходных данных выведите единственное число от 2 до
5 — ту оценку, которую Артем получил наибольшее количество раз. Гарантирует-
ся, что эта оценка единственна.
Примеры
ввод с клавиатуры вывод на экран
1110111 5
100101101011 4
Примечание
В первом примере Артем зашифровал последовательность оценок «5, 4, 5», по-
этому наиболее частая оценка — «отлично».
В первом примере Артем зашифровал последовательность оценок «3, 4, 4, 2, 5»,
поэтому наиболее частая оценка — «хорошо».

[Stilet]

const balls:array[2..5] of string=('0','100','101','11');
var i:integer; s:string;
begin
 while s<>'' do begin
  for i:=2 to 5 do
   if copy(s,1,Length(balls[i])=balls[i] then begin
    writeln(i); delete(s,1,Length(balls[i]);
   end;
 end;
 readln;
end.

Идея ясна?

[romabash]

да, спасибо