символьные переменные

[[Te[M]ka]]

10. Даны натуральное число n и символы s1...sn , среди которых есть двоеточие.
а) Получить все символы, расположенные до первого двоеточия включительно.
б) Получить все символы, расположенные после первого двоеточия.
в) Получить все символы, расположенные между первым и вторым двоеточием. Если второго двоеточия нет, то получить все символы, расположенные после единственного имеющегося двоеточия.

Помогите пожалуйста решить. Завтра экзамен, а данная лабораторная работа весит, как долг.

[Shift_sk]

а
var s:string;
    i,j,n:integer;
    begin
    read(s);
    i:=1;
    while (i<=length(s)) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=1 to j-1 do
    write(s[i]);
    end.

[Shift_sk]

б
var s:string;
    i,j,n:integer;
    begin
    read(s);
    i:=1;
    while (i<=length(s)) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=j+1 to length(s) do
    write(s[i]);
    end.

[Shift_sk]

в

var s:string;
    i,j,n,k:integer;
    begin
    read(s);
    i:=1;
    s:=s+' ';
    k:=length(s);
    while (i<=length(s)) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=j+1 to length(s) do begin
    if s[i]=':' then begin k:=i; break; end;
    end;
    if k<>length(s)then k:=k-1;
    for i:=j+1 to k do
    write(s[i]);
    end.

[Shift_sk]

может и сложно для когото решено ... по дургому счас не могу мозг не варит!

[[Te[M]ka]]

Рахдет огромный тебе. Завтра теперь пойду экзамен сдавать. Не знаю, что и делал бы без тебя. спасиба.

[Shift_sk]

незачто надеюсь реально помог)

[[Te[M]ka]]

а что сами данные в прогру не вводятся?

[Shift_sk]

а все понел как ет надо!счас сделаю!

[[Te[M]ka]]

аа все. сделал все. не надо.