Народ! Срочно! Помогие решить задач в Турбо Паскале!!!!Лучший ответ гарантирую!

1.

uses CRT;
var
i, k: integer;
s: String;
begin
clrscr;
write('stroka: ');
readln(s);
k:=0;
for i:=1 to length(s) do if s[ i ]=':' then
begin
s[ i ]:='.';
k:=k+1;
end;
writeln(s);
writeln(k);
readkey;
end.

2.

uses CRT;
var
i, k: integer;
s: String;
begin
clrscr;
write('stroka: ');
readln(s);
k:=0;
for i:=1 to length(s) do if s[ i ]=':' then begin
delete(s,i,1);
k:=k+1;
end;
writeln(s);
writeln(k);
readkey;
end.

3.

uses CRT;
var
i, k: integer;
s, sl: String;
begin
clrscr;
write('stroka: ');
readln(s);
write('slovo: ');
readln(sl);
k:=0;
while pos(sl,s)>0 do
begin
delete(s,pos(sl,s),length(sl));
k:=k+1;
end;
writeln(k);
readkey;
end.

В данной строке заменить двоеточие точкой и подсчиать количество замен.

1.
Var
st,st_temp:String;
i,n,k:Integer;
Begin
Readln(st);
k:=0;
n:=ltngth(st);
For i:=1 To n Do
If st[ i ]=':'
Then Begin
st[ i ]:='.';
k:=k+1
End;
Writeln('Новая строка ',st);
Writeln('Количество замен -',k);
Readln
End.

Можно ещё одну: В строке удалиь символ двоеточие и подсчитать количество удалённых элементов.

2.
Var
st:String;
i,n,k:Integer;
Begin
Readln(st);
k:=0;
n:=pos(':',st);
While n<>0 Do
Begin
Delete(st,n,1);
k:=k+1;
n:=pos(':',st)
End;
Writeln('Новая строка ',st);
Writeln('Количество удалений -',k);
Readln
End.

Ну и последняя: Определиь сколько раз в строке встречается заданное слово?

3.Var
st,st_sub:String;
c:char;
i,n,n_st_sub,k:Integer;
Begin
Readln(st);
Readln(st_sub);
k:=0;
n_st_sub:=length(st_sub);
n:=pos(st_sub,st);
While n<>0 Do
Begin
Delete(st,n,n_st_sub)
k:=k+1;
n:=pos(st_sub,st)
End;
Writeln('строка ',sub_st,'встречается ',k,'раз');
Readln
End.

Заменяет в поле ввода ',' на '.'}
function FlEd(fl:OLEVariant):string;
var
s,s1,s2:string;
i:integer;
begin
s1:=fl;
s:='';
for i:=1 to length(s1) do
begin
s2:=copy(s1,i,1);
if s2=',' then s2:='.';
s:=s+s2;
end;
FlEd:=s;
end;
остальное по аналогии

а условие то где? ;-)

Какую задачу? Зайдите на страницу вопроса и нажмите "дополнить".

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

program f1;
var i: Integer;
s: String;
c: Integer;
begin
write('Введите строку: ');
readln(s);
c := 0;
for i := 1 to length(s) do
if s = ':' then
begin
s := '.';
c := c + 1;
end;
writeln('Строка после замены символов: ', s);
writeln('Количество заменных символов: ', c);
readln;
end.

В строке удалиь символ двоеточие и подсчитать количество удалённых элементов

program f2;
var i: Integer;
s: String;
c: Integer;
begin
write('Введите строку: ');
readln(s);
c := length(s);
i := 1;
while i <= length(s) do
if s = ':' then Delete(s, i, 1) else i := i + 1;
c := c - length(s);
writeln('Строка после удаления символов: ', s);
writeln('Количество удаленных символов: ', c);
readln;
end.

Определиь сколько раз в строке встречается заданное слово?

program f3;
var s: String;
sub: String;
c: Integer;
i: Integer;
l: Integer;
begin
write('Введите строку: ');
readln(s);
write('Введите слово для поиска: ');
readln(sub);
l := length(sub);
c := 0;
i := Pos(sub, s);
while i <> 0 do
begin
if (s[i - 1] = ' ') or (s[i + l] = ' ') then
begin
Delete(s, i, l);
c := c + 1;
end;
i := Pos(sub, s);
end;
write('Количество вхождений заданного слова в строке равно: ', c);
readln;
end.