Работа со строками (Pascal)

[Volk_xD]

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

[GetMax]

Задана строка. Удалить из нее два последних символа.

Var
  St:String;
  I:Byte;
Begin
  Readln(St);
  Delete(St,Length(St)-1,2);
  Writeln(st);
  Readln
End.

По остальным задачам показывайте наработки

[Noor]

Ну или (к первому заданию)
stroka:=Copy(stroka,1,Length(stroka )-2);

[Mad_Cat]

2)

for i:=1 to 5 do
if copy(spis[i],1,2)='Ни' then writeln (spis[i]);

3)

for i:=1 to length(tex) do begin
if tex[i] in('0'..'9') then n:=n+tex[i] else
if tex[i] in ('a'..'z','A'..'Z') then b:=b+tex[i] else
s:=s+tex[i];
end;

[Volk_xD]

Mad_Cat, GetMax и Noor - спасибо!
Вопрос к Мэд_Кэт: по з-й задаче - переменные n, b и s объявляем как массив или просто типа string? И вводимый с клавиатуры текст должен быть строкой или может быть массивом текстовых данных?

[Volk_xD]

Вот что получается, но выдаёт ошибку:

Program Str_1;
Uses crt;
Var
n,b,s: string;
  tex:String;
  I:Byte;
Begin
clrscr;
Writeln ('VVedite stroku->');
  Readln(tex);
for i:=1 to length(tex) do begin
if tex[i] in ('0'..'9') then n:=n+tex[i] else
if tex[i] in ('a'..'z','A'..'Z') then b:=b+tex[i] else
s:=s+tex[i];
end;
Writeln ('Rezultat:');
Writeln(n);
Writeln(b);
Writeln(s);
  Readln
End.

[Volk_xD]

up

[andrewpalkin]

Program Str_1;
Var
n,b,s: string;
  tex:String;
  I:Byte;
  ch: integer;
Begin
Writeln ('VVedite stroku->');
  Readln(tex);
for i:=1 to length(tex) do begin
  ch := Ord(tex[i]);
  if (ch>47) and (ch<58) then n:=n+tex[i] 
  else
    if ((ch>64) and (ch<91)) or ((ch>96) and (ch<123)) then b:=b+tex[i] 
    else
      s:=s+tex[i];
  end;

  Writeln ('Rezultat:');
  Writeln(n);
  Writeln(b);
  Writeln(s);
  
End.

[Volk_xD]

Большое спасибо