Строки, списки.

uses crt;
const rzd=['.',',','?',';',':','!'];
var s,s1,s2:string;
    i:byte;
begin
clrscr;
write('Text: ');readln(s);
writeln;
{udalim razdeliteli}
for i:=length(s) downto 1 do
if s[i] in rzd then s[i]:=' ';
{dobavim probel}
s:=s+' ';
{udalim lishnie probely}
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
{vydelyaem slova}
write('Iskomoe slovo: ');
readln(s1);
while pos(' ',s)>0 do
  begin
   s2:=copy(s,1,pos(' ',s)-1);
   if s2<>s1 then write(s2,' ');
   delete(s,1,pos(' ',s));
 end;
readln
end.

uses crt;
var
  n,i,min: integer;
  A: array[1..100] of integer;
begin
  clrscr;
  write('Vvedite razmernost massiva N='); readln(n);
  writeln('Vvod massiva:');
  for i:=1 to n do
  begin
    write('A[',i,']=');
    readln(A[i]);
  end;
  writeln;
  writeln('Vyvod ishodnogo massiva A:');
  for i:=1 to n do
    write(A[i]:5);
  writeln;
  min:=A[1];
  for i:=2 to n do
    if min>A[i] then min:=A[i];
  for i:=1 to n do
    if A[i]=0 then A[i]:=min;
  writeln;
  writeln('Vyvod preobrazovannogo massiva A:');
  for i:=1 to n do
    write(A[i]:5);
  writeln;
  readln;
end.

uses crt;
type mas=array[1..100] of integer;
procedure Vvod(var m:mas;var x:byte);
var i:byte;
begin
write('Vvedite razmernost massiva: '); readln(x);
writeln('Vvedite ',x,' elementov massiva:');
for i:=1 to x do
  begin
    write('el[',i,']=');
    readln(m[i]);
  end;
end;
procedure Vyvod(var m:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
write(m[i]:5);
writeln;
end;
function Min(m:mas;x:byte):integer;
var i:byte;
    mn:integer;
begin
min:=m[1];
for i:=1 to x do
if mn>m[i] then mn:=m[i];
Min:=mn;
end;
procedure Zamena(var m:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
if m[i]=0 then m[i]:=Min(m,x);
end;
var
  n:byte;
  A:mas;
begin
  clrscr;
  Vvod(A,n);
  clrscr;
  writeln('Ishodnyj massiv A:');
  Vyvod(A,n);
  Zamena(A,n);
  writeln;
  writeln('Preobrazovannyj massiv A:');
  Vyvod(A,n);
  readln;
end.

Program Prim;
Var a,b,h,m,p:real;
 
Function f(x:real): real;
begin
f:=(sqrt(0.1*x*x+0.39)-(sqr(sin(x*x)))/2)/(0.15*x*x+0.001);
end;
 
procedure P1 (a,b,h: real;Var m,p: real);
Var x: real;
begin
M:=a;
x:=a+h;
repeat
if f(x) > f(m)
then M:=x;
x:=x+h
until x>B;
m:=f(m);
P:=a;
x:=a+h;
repeat
If f(x) < f(p)
then P:=x;
x:=x+h;
until x < b;
p:=f(p);
end;
 
begin
write ('vvedite A,B,H'); read (a,b,h);
P1 (a,b,h,m,p);
write (p,m:4);
end.