процедуры и функции

[Alexgv]

Просьба помочь выполнить следующие задания. 1, 2, 5 вроде представляю как делать, сейчас напишу и выложу сюда, проверьте пожалуйста. А 3,4,6 даже не представляю как делать, растолкуйте кто может

Написать:
1) процедуру ввода текста из заданного числа символов;
2) функцию подсчёта указанного знака препинания в тексте;
3) процедуру записи слов текста в одномерный строковый массив;
4) функцию нахождения номера первого встретившегося знака препинания в тексте после указанного места;
5) функцию подсчёта количества повторения заданного слова в строке;
6) процедуру – инструкцию, выводящую сведения о запрашиваемой подпрограмме этого модуля с полной характеристикой её параметров.

[Alexgv]

1)

Procedure vvod (var s:string, k:word);
var i:byte;
begin
writeln('введите текст');
for i:=1 to k do
readln(s);
end;

[Alexgv]

2)

function kol(z:char):byte;
var s:string;
k,i:byte;
begin
k:=0;
for i:=1 to length(s) do
if s[i]=z then inc(k);
kol:=k;
end;

[Alexgv]

5)

function kolpov(sl:char):byte;
var s:string;
k,i:byte;
begin
k:=0;
for i:=0 to length(s) do
if s[i]=sl then inc(k);
kolpov:=k;
end;

[Niro]

3) процедуру записи слов текста в одномерный строковый массив;

в поиск - было уже сто раз

4) функцию нахождения номера первого встретившегося знака препинания в тексте после указанного места;

const mn=[',','.','!','?'];
var st: sting;
begin
   for i:=k to lenght(st) do
    if (st[i] in mn) then  halt;
   writeln(i); номер первого знака препинания
end;

[Alexgv]

Niro, блаодарю

[Mad_Cat]

процедуру ввода текста из заданного числа символов

Procedure vvod (var s:string, k:word);
var i:byte;
c:char;
begin
s:='';
writeln('введите текст');
for i:=1 to k do begin
readln(c);
s:=s+c;
end;
end;

[Alexgv]

Mad_Cat, спасибо за поправку

[Alexgv]

Сделал библиотечный модуль из всех этих программ. Не работает в чем ошибка?

Unit Kurs;
INTERFACE
Type
Kurs=record
mas=array[1..40] of string;

end;
Procedure vvod (var s:string, k:word);
function kol(z:char):byte;
procedure ReadSt(var a:mas;s:string);
Function nom(I:integer):byte;
function kolpov(sl:char):byte;
Procedure Instruction;
IMPLEMENTATION
Uses crt;
{1) процедуру ввода текста из заданного числа символов;}
Procedure vvod (var s:string, k:word);
var i:byte;
c:char;
begin
s:='';
writeln('введите текст');
for i:=1 to k do begin
readln(c);
s:=s+c;
end;
end;
{2) функцию подсчёта указанного знака препинания в тексте;}
Function kol(z:char):byte;
var s:string;
k,i:byte;
begin
k:=0;
for i:=1 to length(s) do
if s[i]=z then inc(k);
kol:=k;
end;
{3) процедуру записи слов текста в одномерный строковый массив;}
procedure ReadSt(var a:mas;s:string);
var
st:string;
k,i:integer;
begin
s:=s+' ';
st:='';
k:=0;
for i:=1 to length(s) do
if ( not ( s[i] in [';',',','.','!',' '] )) then
st:=st+s[i]
else
begin
k:=k+1;
a[k]:=st;
st:='';
end;
writeln('сформированный массив слов:');
for i:=1 to k do
writeln(a[i]);
end;
{4) функцию нахождения номера первого встретившегося знака препинания в тексте после указанного места;}
const mn=[',','.','!','?'];
var st: sting;
begin
for i:=k to lenght(st) do
if (st[i] in mn) then halt;
writeln(i); номер первого знака препинания
end;

{5) функцию подсчёта количества повторения заданного слова в строке;}
Function kolpov(sl:char):byte;
var s:string;
k,i:byte;
begin
k:=0;
for i:=0 to length(s) do
if s[i]=sl then inc(k);
kolpov:=k;
end;
{6) процедуру - инструкцию, выводящую сведения о запрашиваемой подпрограмме этого модуля с полной характеристикой её параметров.}
Procedure Instruction;
var
nom: byte;
Begin
While true do begin
clrscr ;
writeln('1. Процедура ввода текста из заданного числа символов');
writeln('2. Функция подсчета указанного знака припеная в тексте');
writeln('3. Процедура записи слов текста в одномерный строковый массив');
writeln('4. Функция нахождения номера первого встретившегося знака препинания в тексте после указанного места');
writeln('5. Функция подсчёта количества повторения заданного слова в строке');
writeln('6. Выход');
write('Выберите:'); readln(nom);
case nom of
1: begin
writeln('');
readln;
end;
2: begin
writeln('');
readln;
end;
3: begin
writeln('');
readln;
end;
4: begin
writeln('');
readln;
end;
5: begin
writeln('');
readln;
end;
6: break
else writeln('Не верный ввод, нажмите ENTER.');
readln; end;end;end;end;