Глобальные переменные

program lab11;
uses crt;
const
max_array_size=100;
type mas=array[1..max_array_size] of integer;
var a:mas;
    b:mas;
    mas_dimension,i:integer;
    Summ:real;
 
 
 
 
procedure Input(var a:mas);
var i:integer;
begin
  repeat
    writeln('Введите размерность массива ');
    readln(mas_dimension);
    if mas_dimension<=1  then
    writeln('Ошибка ввода .....');
  until mas_dimension>=2;
  if mas_dimension>=max_array_size then
  begin
    writeln('вы превысили допустимый размер массива ...');
    halt;
  end;
  for i:=1 to mas_dimension do
    begin
      writeln('Введите ',i,' член массива ' );
      readln(a[i]);
    end;
  writeln('Введеный массив');
  for i:=1 to mas_dimension do
    begin
      write(' ',a[i]);
    end;
end;
procedure Fibb(var b:mas);
var i:integer;
begin
  writeln;
  writeln('Числа Фиббоначи :');
  for i:=1 to mas_dimension do
  begin
    b[1]:=1;
    b[2]:=2;
    b[i+1]:=b[i]+b[i-1];
    write(' ',b[i]);
  end;
  writeln;
end;
procedure Dicision;
var i:integer;
begin
  summ:=0;
  for i:=1 to mas_dimension do
  begin
    summ:=summ+a[b[i]];
  end;
end;
procedure out;
begin
  writeln('Cумма равна  ',Summ:4:1) ;
  writeln('Работа программы закончена нажмите любую клавишу...');
end;
begin
  Input(a);
  Fibb(b);
  Dicision;
  out;
  readln;
end.

program lab11;
uses crt;
const
max_array_size=100;
type mas=array[1..max_array_size] of integer;
var a:mas;
    b:mas;
    mas_dimension,i:integer;
    Summ:real;
 
 
 
 
procedure Input(var a:mas;n:interger);
var i:integer;
begin
  repeat
    writeln('Введите размерность массива ');
    readln(n);
    if n<=1  then
    writeln('Ошибка ввода .....');
  until n>=2;
  if n>=max_array_size then
  begin
    writeln('вы превысили допустимый размер массива ...');
    halt;
  end;
  for i:=1 to n do
    begin
      writeln('Введите ',i,' член массива ' );
      readln(a[i]);
    end;
  writeln('Введеный массив');
  for i:=1 to n do
    begin
      write(' ',a[i]);
    end;
end;
procedure Fibb(var b:mas;n:integer);
var i:integer;
begin
  writeln;
  writeln('Числа Фиббоначи :');
  for i:=1 to n do
  begin
    b[1]:=1;
    b[2]:=2;
    b[i+1]:=b[i]+b[i-1];
    write(' ',b[i]);
  end;
  writeln;
end;
procedure Dicision(a,b:mas;n:integer;var sum:real);
var i:integer;
begin
  sum:=0;
  for i:=1 to n do
  begin
    sum:=sum+a[b[i]];
  end;
end;
procedure out(sum:real);
begin
  writeln('Cумма равна  ',Sum:4:1) ;
  writeln('Работа программы закончена нажмите любую клавишу...');
end;
begin
  Input(a,mas_dimension);
  Fibb(b,mas_dimension);
  Dicision(a,b,mas_dimension,summ);
  out(summ);
  readln;
end.

program lab11;
uses crt;
const
max_array_size=100;
type mas=array[1..max_array_size] of integer;
 
procedure Input(var m:mas;var n:integer);
var i:integer;
begin
  repeat
    writeln('Введите размерность массива ');
    readln(n);
    if n<=1  then  writeln('Ошибка ввода .....')
    else if n>=max_array_size then writeln('вы превысили допустимый размер массива ...');
  until (n>=2)and(n<=max_array_size);
  for i:=1 to n do
    begin
      writeln('Введите ',i,' член массива ' );
      readln(m[i]);
    end;
  clrscr;
  writeln('Введеный массив');
  for i:=1 to n do
    begin
      write(' ',m[i]);
    end;
end;
procedure Fibb(var m:mas;n:integer);
var i:integer;
begin
  writeln;
  writeln('Числа Фиббоначи :');
  for i:=1 to n do
  begin
    m[1]:=1;
    m[2]:=2;
    m[i+1]:=m[i]+m[i-1];
    write(' ',m[i]);
  end;
  writeln;
end;
procedure Dicision(m1,m2:mas;n:integer; var sum:integer);
var i:integer;
begin
  sum:=0;
  for i:=1 to n do
  begin
    sum:=sum+m1[m2[i]];
  end;
end;
procedure out(var sum:integer);
begin
  writeln('Cумма равна  ',sum) ;
  writeln('Работа программы закончена нажмите любую клавишу...');
end;
var a:mas;
    b:mas;
    mas_dimension,i:integer;
    Summ:integer;
begin
  Input(a,mas_dimension);
  Fibb(b,mas_dimension);
  Dicision(a,b,mas_dimension,summ);
  out(summ);
  readln;
end.

uses crt;
const rz=['.',',','?','!',';',':'];
procedure Format(var s:string);
begin
s:=s+' ';
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
end;
function Kol(s:string):byte;
var m:set of char;
    i,k:byte;
begin
m:=[];
k:=0;
for i:=1 to length(s) do
if not(s[i] in m) then
 begin
  k:=k+1;
  m:=m+[s[i]];
 end;
Kol:=k;
end;
function Max(s:string):string;
var mx:byte;
    s1,s2:string;
begin
mx:=0;
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if Kol(s1)>mx then
    begin
    mx:=Kol(s1);
    s2:=s1;
   end;
  delete(s,1,pos(' ',s));
 end;
Max:=s2;
end;
var s:string;
begin
clrscr;
writeln('Предложение:');
readln(s);
write('Больше всего разных букв в слове ',Max(s));
readln
end.