Ребята помогите пожалуйста...

Ребята помогите пожалуйста решить эти задачи))1)Задана строка. Удалить из нее два последних символа.
2) Найти в списке из 5 фамилий все фамилии, начинающиеся со слога «Ни».
3)Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив B. Все остальные символы записать в массив S.

 

3)
type
    char_array = array [1..1000] of char;

var
    a, b, c: char_array;
    s: string;
    i := 0;

procedure add(c: char; var ca: char_array);
var
    i := 0;
begin

    repeat
        i := i + 1;
    until ord(ca) = 0;
    ca := c;
//    writeln('add - ',c,' ',i,' ',ca); 
end;

procedure show(ca: char_array);
var
    i := 1;
begin
    write(ca,':');
    if ord(ca) <> 0 then
        repeat
            write(ca, ' ');   
            i := i + 1;
        until ord(ca) = 0;
    writeln;
end;

begin
    read(s);
    for i := 1 to length(s) do
        if s in ['0'..'9'] then
            add(s, a)
        else if (s in ['A'..'z']) or (s in ['А'..'я']) then
            add(s, b)
        else
            add(s, c);

    show(a);
    show(b);
    show(c);
end.