Процедуры и функции. Делфи.

[Fatalita]

Нужно обязательно воткнуть функцию. Куда? Спасибо за помощь.

program n_8_32_v;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    a: array [1..25] of Integer;
    b: array [1..100] of Integer;
    n, i, z: integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('n=');
  Readln(n);
  for I:=1 to 25 do
    begin
      write('A[',i,']=');
      Readln(A[i]);
    end;
  for i:=1 to n do
    begin
      write('b[',i,']=');
      Readln(b[i]);
    end;
   if n > 25 then
     z:=n
   else z:=25;
   for i:= 1 to z do
     begin
       if b[ i ] <> a[ i ]then
         write (b [ i ]);
       readln;
     end;
   Readln;
end.