Подпрограммы

[Егор93]

Помогите с программами(нужно использовать подпрограммы(Ввод,вывод,Выполнение действий и т.д.))
9. Дан массив записей с фамилиями сотрудников, годами их рождения и годами поступления в учреждение. Вывести фамилии сотрудников моложе 30 лет и проработавших не менее 5 лет.

Program Firma;
Uses Crt;
Type
Sotrudnik=record
      Fam : string[15];
      YearRog : integer;
      YearPos : integer;
    end;
Var
  y,i,n:integer;
  Massiv:array[1..100] of Sotrudnik;
Begin
  ClrScr;
  write('Vvedite Year ->');
  read(y);
  writeln;
  write('Vvedite kol-vo sotrudnikov -> ');
  read(n);
  for i:=1 to n do
    begin
      writeln('Vvedite v stolbec Familiiy, Year Rogdenia , Year Postuplenia');
      with massiv[i] do
          readln(Fam,YearRog,YearPos);
    end;
  writeln('Familia  Year rogdenia  Year postuplenia');
  writeln('---------------------------------');
  for i:=1 to n do
    if (massiv[i].YearRog>(y-30)) and (massiv[i].YearPos<=(y-5))
      then
        with massiv[i] do
    writeln(Fam:15,'   ',YearRog:4,'   ',YearPos:4);
  ReadKey;
End.

1. Дана строка символов. Заменить все пробелы в заданной строке точками и запятыми поочередно.

Program p4;
uses crt;
var s:string;
c:char;
i:integer;
begin
clrscr;
read(s);
c:='.';
for i:=1 to length(s) do
if s[i]=' ' then
begin
s[i]:=c;
if c='.' then c:=','
else c:='.';
end;
write(s);
readln(s);
readln;
end.

2. Дана строка символов. Изменить строку: во всех словах, имеющих нечетное количество символов, средний символ удалить.

program P5;
uses crt;
var s,s1:string;
c:char;
i:integer;
buf:string;
begin
readln(s);
S:=s+' ';
buf:='';
for i:=1 to length(s) do
if s[i]=' ' then
begin
 s1:=s1+s[i];
 if odd(length(buf)) then delete(buf,length(buf) div 2+1,1);
 s1:=s1+buf; buf:='';
end
else buf:=buf+s[i];
s:=s1;
writeln(s);
readln;
end.

[GetMax]

Дана строка символов. Заменить все пробелы в заданной строке точками и запятыми поочередно.

Program p4;
uses crt;
var s:string;
Function Zamena(S:String):String;
Var
  c:char;
  i:integer;
Begin
  c:='.';
  for i:=1 to length(s) do
  if s[i]=' ' then
  begin
    s[i]:=c;
    if c='.' then c:=','
    else c:='.';
  end;
  Zamena:=S;
End;
begin
  clrscr;
  readln(s);
  writeln(Zamena(s));
  readln;
end.

Дана строка символов. Изменить строку: во всех словах, имеющих нечетное количество символов, средний символ удалить.

program P5;
uses crt;
var 
  s:string;
Function Del(S:String):String
Var
  s1:string;
  c:char;
  i:integer;
  buf:string;
Begin
  S:=s+' ';
  buf:='';
  for i:=1 to length(s) do
  if s[i]=' ' then
  begin
    s1:=s1+s[i];
    if odd(length(buf)) then delete(buf,length(buf) div 2+1,1);
    s1:=s1+buf; 
    buf:='';
  end
  else buf:=buf+s[i];
  Del:=s1;
End;
begin
  readln(s);
  writeln(Del(s));
  readln;
end.