Нужна помощь с парой програмок в Паскале

[Neytrino]

по сути, сложностей не надо. желательно код написать максимально доступно для чайников))

Первая задача
Дана символьная строка среди символов которой есть двоеточия. получить все символы расположенные между первым и вторым двоеточиями (если второго двоеточия нет вывести все символы после единственного двоеточия)

и Вторая задача
Дан файл F, элементы которого являются целыми числами. Описать функцию - (f), подсчитывающую сумму отрицательных элементов в файле F.

Заранее благодарю!

[ViNcHeStEr]

1)

var
s:string;
i:integer;
b:boolean;

label v;

begin
  write('Vvedite stroku: '); Readln(s);
  b:=false;
  for i:=1 to length(s) do begin
   if ((b)and(s[i]=':')) then goto v;
   if b then write(s[i]);
   if s[i]=':' then b:=true;
  end;
  v:
  readln;

2)

var
 f:textfile;
 i,sum,n:integer;
 s,k:string;

begin
  sum:=0;
   assignfile(f,'file.txt');
   reset(f);
   while not (eof(f)) do begin
    read(f,s);
    writeln(s);
    for i:=1 to length(s) do begin
      if s[i]<>' ' then begin
       k:=k+s[i];
      end
      else begin
        n:=strtoint(k);
        if n<0 then begin
        sum:=sum+n;
        end;
        k:='';
      end;
      end;
    end;
   closefile(f);
   write('Summa chisel<0= ',sum);
   readln;

[HoLToFF]

ViNcHeStEr, не уверен, что использование меток есть "хороший" тон, считаю, что стоит переписать первую программу вот так:

Program TwoPoint;
var s: string; ST, i: integer;
begin
write('Vvedite stroku: '); readln(s);
i:=1; ST:=0;
writeln('Simvoli, soderjashiesia mejdu '':''');
  while (i <= length(s)) and (ST < 2) do
    begin
    if s[i] = ':' then ST:=ST+1
    else
    if ST = 1 then write(s[i]);
    i:=i+1;
    end;
readln;
end.