Проверить, правильно ли используется переменная типа integer

uses crt;
type vars=record
     value:real;
     name,doings:string;
end;
var
   f:text;
   s,st,ds:string;
   i,j,z:integer;
   a:array[1..100] of vars;
function doing(str:string):real;
begin
end;
begin
     clrscr;
     assign(f,'file.txt');
     reset(f);
     while not eof(f) do
           begin
                readln(f,s);
                if pos(':integer;',s)<>0 then
                   begin
                    for i:=1 to length(s) do
                       if (s[i]<>' ') and
                          (s[i]<>',') and
                          (s[i+1]=',') then
                                       begin
                                            j:=j+1;
                                            a[j].name:=s[i];
                                            a[j].doings:='';
                                        end;
                    end
                else
                    for i:=1 to j do
                        if pos(a[i].name+':=',s)<>0 then
                          begin
                           ds:='';
                           for z:=pos('=',s)+1 to pos(';',s)-1 do
                               if s[z]<>a[i].name then
                                  ds:=ds+s[z]
                               else
                                  ds:=ds+a[i].doings;
                           a[i].doings:=ds;
                          end;
 
           end;
 
     for i:=1 to j do
         writeln(a[i].name,'=',a[i].doings);
     readln;
end.

uses crt;
var 
    s:string;
    i,j,hi:integer;
begin
    i:=5;
    j:=200+85-20;
    i:=i/4;
    j:=18+4;
    writeln(i);
end.