help bài này với ạ , ngôn ngữ pascal , sẽ cho câu trả lười hay nhất và công bằng ạ

uses crt;
const a:array[1..8] of string =('091','094','081','082','083','084','085','088');
var  n,i:integer;
s:String;
begin
assign(input,'DL.inp');
reset(input);
assign(output,'KQ.out');
rewrite(output);
readln(s);
for i:=1 to 8 do
 if copy(s,1,3)=a[i] then
 begin
  n:=1;
  break;
 end;
if n=1 then
begin
 writeln(s,' la nha mang Vinaphone');
 write('So tien can nop phi la: 60000d')
end
else
begin
 writeln(s,' la nha mang thuoc nha mang khac');
 writeln('So tien can nop phi la: 100000');
end;
end.

var s: string;
begin
    readln(s);
    if s[2]='9' then begin
        if (s[3]='1') or (s[3]='4') then begin
            writeln(s,' la mang Vinaphone');
            write('So tiem can nop phi la: 60000d');
        end
    end
    if s[2]='8' then begin
        if (s[3]='1') or (s[3]='2') or (s[3]='4') or (s[4]='5') or (s[3]='8') then begin
            writeln(s,' la mang Vinaphone');
            write('So tiem can nop phi la: 60000d');
        end
    end else begin
        writeln(s,' khong la mang Vinaphone');
        write('So tiem can nop phi la: 100000d');
    end
end.