процедуры, функции....модуль

[morgan996]

Ребята, помогите пожалуйста решить 2 задачи. Пропустил пару тем...про модули вообще молчу, завал...помогите пожалуйста...


первая... Вводятся 2 предложения и символ. Необходимо распечатать то предложения, в котором указанный символ встречается большее количество раз. Для решения написать функцию, которая ищет указаный ей символ с заданой позиции в строке и возвращает номер позиции, в которой он стоит или 0, если он не найден

вторая ....Оформить модуль для работы с файлами вещественных данных: процедуры и функции для поиска позиции, в которой располагается элемент данных, удаления в файле элемента, стоящего в заданой позиции, удаления в файле всех элементов с заданым значением и т.д. Использовать ресурсы модуля в программе.

Вот собственно 2 задачи, помогите пожалуйста...

[IT-man]

фун-ка к 1 задаче)

function Mypos(s:string;k:integer;c:char;):integer;
var i:integer;
begin
mypos:=0;
for i:=k to length(s) do
if s[i]:=с then begin mypos:=i;exit;end;
end;

[Базиля]

первая... Вводятся 2 предложения и символ. Необходимо распечатать то предложения, в котором указанный символ встречается большее количество раз. Для решения написать функцию, которая ищет указаный ей символ с заданой позиции в строке и возвращает номер позиции, в которой он стоит или 0, если он не найден

с заданой позиции в строке и возвращает номер позиции, в которой он стоит

Вот этого почему то не понял, для чего это? Ведь тебе нужно просто, ввести 2 предложения, и искать в них введенный символ, в котором предложении он встречается чаще, вывести его

[morgan996]

впринцыпе да...так оно и есть