Advent day 3

Author: rnbastos

Diff for: entrada3.txt

@@ -0,0 +1,300 @@
+gfWpjRRQffQGCHHJsGqjsj
+SclzJZZvmmnPbJtVSqqNBqVCBdSCsd
+tlbvZJDZtmtPcJmlPnhMFQWWpMRFTfLDRRTWRp
+HjMPgSWjVrjgbHRRSSMRgjRdpdbGdlcdCvQfcCdlwQJfdf
+LNDnhtNtLNFFZDtFnhzvdldDflvvDCdlJfldpJ
+ZFLFZZmFtFtTNTSPRrVPWWMpRP
+qLBSBLRwmgzqCbzCffDlrfCV
+TFFFHNWFMFFMpHpGHMTHGNhrldWZCsdZsslZlZfrflDVss
+PTMcPGntTThHhTGctnMvSwjjvmmqLBmnjqqgCR
+nClJtMwwntqVVPJcgZqq
+mjpsDcrcSSFFPZqFBWWgVP
+vQcjsvhrvvrmhbmNHMNnlHbNMtCtNM
+bgvvhnTQtjrrrhsDDf
+pLSMltLzLLSjFrSSjrSJHD
+zNWRLBdZPllPQtCvttgCqb
+DRlDrrFTNDNlgzsGTBfcnqhhcnJfcrCSqc
+MMmmdWtdLmvtldHjMmQfPBqSJWnfCCCqcWSSPJ
+vjHMjLmjpLtHptQLmHvwTRgNVVpTzZFZgZRlsVTN
+rzpMpDCGFCFFjRFsRPFRNFPv
+fWclbHCHtSmfvjnmfsvZ
+wTcTlSwwtQtWclBQBLGMLMCLVzVLwJGqLd
+MQSjLNjPPLLSBPjfQhSPHjDVCjDtVVpDHwbwVpbD
+RcmWzsRrzZrmTszWRqWlmRJscbtHwCbndCtcDVddDpdnVnbt
+JTsrGGTqmwTlWmTzJzWmhhPLLGgPFgBffSSPhFFM
+qMMRNZMDDNWLPqfzCgDcGncVDCgG
+wwBFhwhhBgmcVzhghG
+tbJbjjtJvwtdtwjpFtlbvtdTLNSMqNqMMgqNHPlZRTNggL
+qmjMHsZmZSbjbZMjSLFFFFwgsgvFswpwww
+hRJBhmnhhvFFwhcv
+llfWDWzrzBNTRfNBrWzzTmZbGTMjPqMmZPjVbSZGSP
+CRRPLwwcclcGVppQ
+SHFjDjjHDTfSDNTTHfSHjQVGrpmllQQWltVVVZGp
+HFlqzDTfqlzwbgPJLwCP
+WRCNLphpLppSCWVHNfLRzVnQMnBnMddPMQDFQgrhPQFM
+jTjJqvqjvPVJFJFBJF
+qTsZbvGqqZlstsmZVljtwqwSHHNWczHSSRcWNSRHzzNfbW
+glgzDzHjSrVHcVgbrjmNsscNGmNWssGNNtst
+hHPQLHJpwdLpdHfQQtnZmNMwnZGZWwsFZM
+QpdhPJRTJfPphJfhCBlVqVvgvVDBbvVqDbHD
+VtHzjZpjVtHrprgGmjHsGHNdSJFQRcLJqCdQcSqJNpcq
+bBWfTPwhbfDlMnhffRwQJQNdqJcLFQLSdR
+bhBhvfMWTnlDnTBfPSmvmjsjmmGtzHtsHm
+pcRPRPWrSDcJGZSStmwZZS
+VnLfCfTlfVzfnMMBCqVNZJdtjNtJjhJdGNNbwT
+BLvqCCMVsnRQsPQgDcZH
+cQbqqQhDGhlQfQlhQrqGsTNgLgCpRgLTPPPLNbpg
+wtHVddVFwSHznZwwznCpRBdjppNBNTTdCjRR
+ZtWFwWtSmvVnwZDrCMGfQlDDJQmD
+PzPZGCZzrZrlhdjdCqfCsqQdRD
+cbvZLVVFvbbNSNFHSDnsDQdnfqNQDRngsR
+FJHSLSFSScJJbWHFmFVFSZmrrzBmhtBwmzBMPMPzPh
+nlpFcLBgcVcLbssGVBGGrlpGPhJJJJJqPBZPDNMQMJJhJQZZ
+SSTjHzfHwtZSPVQVQMRQ
+TzVHwWfTtzwdVzsbFnGgsbdcGrLc
+FppVBRVZDdLmrDGmmfrQ
+NtNMPNshJCzznLGJSrqRrRrr
+tRssthhPlCWhPzsWtzhzCbVVjwTpVwdZZTpwjbdBbwBc
+TTWblHWScvPCCHTWFzSrqqsNNSmdmqrrpz
+RLRwjjnjZNprzmmZcq
+QQgtQnccQDGjgLDRRcLthQhFBvCbMtMHTWlBFllBbFCMTW
+WnBVNvDnVsNvZWdrWDLVDMbsHpTjpHCSSClsbSCCMH
+GPFtmztzgPhRFtJTdbTwjppSCjpgSl
+hJcfPtQhdtWNVZqNnqNQ
+GLcqZPPsnqQcFsmBBrqRvrddNqrC
+MtHthJwLllwvjRvvtrvBRS
+VHMfDLbpfznszZQG
+WBSdPlQPRfBtGQPfBGPBJgzgjwsJzsszJwCrdwCT
+ZpppVpMVpnVHMVVbZRJrCgwRzTJrwNJw
+MvhmnpLqLmhVmBlftRQBFSlR
+hhQlSJqhtCSnqZJnqShSlNDwRzpvdwRlMBMMdcjRjMpMRc
+frrGmLmWbfFrsmFHmBzBvBcwdJbvpjzbMM
+mmgFrVGLWJLFGsgfhSVtVPqntqnnSStN
+SFJTJTSqswwFQbwf
+cDtcWPclrtPwVsfssQmN
+HDtwWCgWdggdzSGJMSzGMq
+JpqJtWRJMhCMJpMQCWtFrjgHdgdlgllwNjlQjldH
+fBzPZcZvnBmDnZvZBZDmPvglVVVdgHHSwrNRgVgwNPRH
+GbZnZccfvcsZmccsmnnZTRbCCMWFTWJqFCCMJFRT
+vrrFqrFTBTmLmNrLMqMTHddJbHpWnhdWdWbHhJGM
+wBzfwzcQSzWSSshpdWGp
+gwjPPPDQtzQlzQDPqTgLBRmRqZBvqFNR
+bWVptFFsbPcZsGLhsZGmLB
+qnWrnrHdMCDCNqfWmvRRZSSRLdRGZGRG
+nNqqNDfMrMWHDQNHzWfHNDnwzblpzFlbwtFbVVlwVcPJpP
+BHJhlHdJQggvddglJBBhglhQzZHPZpFFPDMzFDDRDFZZDFZD
+rSTfqnCffMfCVfCLNqbzbjWNDbbWDPFpPFbP
+nfnnrSfCTVSwrqSLCGfTGlgQhlvsGMJQJBhhssJhGc
+tBjjDjjqfDjLfJlrLgglvmrlmrcc
+TwNNTVhwwpgvGSNNSssS
+TbwhnvvChhbVRTPPRJBJQQfJttMQQJCQfW
+mWSvSQVgmWQsQvspQJlrlLnJLLpCClhhlp
+bFHRjZdNjjBZzFzhtnCllCcJLrCBll
+HFFNHbdZZLZjfPFjHVQmWDDVsvsmTqVqDf
+JJPllQQClqgBCgdHwHbpjVTwHd
+tmGZtjGjHZpVbfMT
+ShGjNGWmDSNcNRtGmshDRzzCvzQJJRBLrvlrBPJv
+cTpqsTWqVVpsNLfvCDFlMFDVFL
+JnndJPddQgzHlvMJFDhLCG
+BjtntgdRnQgzjdBRQBlpNWrTTlNTSwNpWS
+qHmqLVLjmVqsDBLtmjmbtPwCTwwPzGWRgGwGwMwW
+ZhcCNCSprRTWTwSnWW
+hflhZvvQhppZfcNpvrhpQHjVjLmbVmmVHVCFDvqVFb
+nnNrwDnZrspwDNnZsNSDsNbCmpjvMTPQjLMmPmmQPGBTQP
+FdVtRdRfctBQPmTtTLQB
+qhzWVWJqVHwbhlLSsS
+htWmhDhFztnztDhtBmBtghPRSrpfjVwPdfPwpwnRSVrr
+cbCHvgJGcTqbqcbqqqcqsMsRVrSCwffdRPPpVpwCRSwfjj
+GlgGQqTqbgQzttmBNNFz
+NWQNQgdTgjQNddTZfrCQWRDnnnbqnLqnRcjJlqqvDj
+FtSSmSmJhpllcclDvpln
+JBVVSsSFBVBttShFGSPQfCGNdrMfZZTQTZNNdC
+HgHthMhphcbfbMMfHhsGGDCRRVlcVSScsCRz
+nWvPFqLqPNdjnNLnjdJnPdWjGlssDPSsllVCRzlTCTGlSDzS
+RvddJRJQHwQwpZZb
+gdZwgpjZZQtHTdrWrwdpWRnlhNBRlLbFthNhflhBnL
+CVzDCPGMVqVmGsGGbJCmCDvMcRcqnBFFFnRBBNRBBNqhnFfF
+DsmSGsGPzvMGJvdbgTSTbjbSSdgH
+jBGmbNBQGdBNNDJNQRLLVDsHtDRzHHZZcH
+wCWPFWPCrPhPrplvprhwpCHHtszttqZslRVHLtzVlJZL
+vprMMvMnJCwnnPShNGSTfGSfNmmgdNff
+bPtLbvVWWztbLSVVnbszpzQsrcDDBdpRcDrs
+llZmgCZqgCFgmdRdJcscBdJsmQ
+FZlgfqCFfgZHlqCMCglwCFGWntLLSMRSPGPVttWRtVGL
+vtnDsDtrnrSvrMVmbrrJgPCmBm
+FpQHzFclLVzWHhwHLQLlHLzPmMBQCJTdTmCTmBTJTTmgQg
+pllcVWqlffZqZtZD
+TSSZWpsQmZWcTZSvsTTTppNPzrBPrNBrzQNVFrBBNPqP
+CgjmCbtGgftMmLtLmffzBzJJJNVVMNzNBqJrFN
+gjgjLgtLwgbGjHdhhGdvmlnllnpWnplZvcvwTl
+htLrRFRtbbhlGSLRtbJBJsjBmgMMgJgtmBzz
+pZQWddQQfpZZffcDQZwddQwDMqDDsPgGJJzzjqzgJMBJgmms
+QdcQTdwpGNwfrCRlRVlNLSbb
+wrdvpVBVpMGPPjWjGZJJZT
+tChCSlNfCCHtvHHWPHPZ
+RbRRNvmcqcblfMwwdVBQQqqdpL
+qcctqRcqmcHWzHBdDMZhfwthBnwt
+JFsSNMSgNSNJJMGJBBdjhFDfhwhBrwnZ
+TbgbsSgJMTJllblLCSPlsTCVQmRVVWpQzzqpqzVzHLQzcc
+CVcWbjjSSCSSnpjWpCpprhHZlHtHGzHrZrHGclrl
+gqZqdddLgmgNqvTGGHvvmrrGHT
+FFDgZfZNLMgNfdDqDRnsnjBpbSbnMBBWpQpB
+qwpQFwRnqFFfSBSfFt
+LJJLGLWWtZlbgWHgGshhSdSVzmhHmfVzzC
+lrbrbrNNJgDMLLbblGctvvvDqPcqctTTTcqP
+vnblvbfHvlcHMlHlZbSPLTPLwCMBRRPRRFFR
+tszzBqtzDsWVPRSmzLVmVL
+tsNsDDNgGsqBrgBpgdHQbfhflcHdpZvdbh
+cCpLtpGGLsgsppcpmGGHMtjfHRVhvvVVFRfhjV
+NWnnnNNndQnQZdCdzzRVMHzvhhHWWWjj
+CPJJrnSZpGDJLGTL
+cnJzpcnmnQVFbzTlvTHBlb
+tWCDPjfsDGfZhddhjjdTvFTgFgvbnFHvdHqT
+hjfCjwDDGjPthsfhsnGNrJcQcRmJMLVJrJNMLw
+CPPRrSlRccPcwTHwfdwTHdfl
+mLQLLjhQhhQLZvpzssHDhdTswzzTJD
+gmjbBvQLWmgbQZBCSRnnnSMVCBHnBS
+sWrBJbsVqschzhQzHh
+gtFmztnSlSfdlmnZSdSwcwGRTjcTcwwTcHccRg
+FzFDzMZCdDZtCSrJVBMqWVrqNBqN
+TvWlhhfhZJVgtSSl
+ddBdGGdFmmBbdzqqPDDGGmdDZSgttHtZppSgzZHSgMhtMgtz
+PGqdrbbbdPnrcjjhTRWLLc
+trrmJWcrVwVbcPScdcBdGPHH
+JTQnfjlJTpQFfMLlNJHHGDPdGsSdDjHGDPPH
+ffFfnCTTCfTlplTMvNVzqWvwVzrrhwmWhJbW
+hVtDtgcghzJpmmhlwp
+srsnrqqsPqsBPvnqRBRMPbnwlplpmCStJwmzJPtJzJfwSw
+bbrqjBbvGsjGGBWqMVFFVDNVNjZjgtgFgZ
+mnmhBDHhwWCHsTgRsH
+dcSlFvccMFMMFFggNsTzzvvzWnVW
+llQdllZScFplJPpdcZSqBqjhmtnrwrDGnQGhrq
+ZffVNgfTdmPVltsnnGwgQDnB
+rMCFLMHpzCMFzHpzbrcHFLzBwsDsDDnlDBJrDDBBSJSnBn
+MLMjMzqpCzvwqTmwZdvq
+DDNlWPRqgPRPsRFjJQZbchJZbgQJ
+zzrLLznpLbHnjcBHvVvHvJcZ
+ndmrTzbMMTfzrTfnTLrzdpmsPPPqlqGDNNsPCRDRqRsD
+zzdqTNfTfdfhgQhgqMFSjRDtDRWHqtWlwtqDRS
+ssBCrcmpVGZvVRDdSDRwtmWdDb
+rvGPCZLCVCPVBZFdnfThgNgLJNhf
+bslcrssQwDPbQrrcsbsnQrjMLthPMMRhLRhLRgzmgPhRgM
+DffvDfHGfNFdpfTdMtghLBThzVmBhBtM
+SNvJNJdflDDbcDWJ
+HFlHNpWsTlGWbFsGFTGHFLLNzPPhLVPMzVzMNPhhzP
+jSvZtmrqqpcrCpPVzw
+dddQvqDgDmjdSQQdqZjStpffWGgBRWTGfGsRlWBlHF
+THnTbNrdBnLTHHnTnBrWRTndsccZsLZcDqmLDPcDlQDsmmsZ
+ptwzzhpvGSVdqQlmszqmqPqc
+wGVjSddCBggCHFWN
+LFFbdbhhhvwvfTNdRhhRRvMbHDGjcfcGfDjtDHHcHqGjDqqj
+WlQnVpWSSWWsPsgDqDzHDLHjJcttGP
+rrWsZrgVnWrWSlmSlmSBFFbvTThhBFvvZLBhRw
+BgBdcjThvjFcTggrqvVfzlnnPlrqLt
+JpwJGPsQwpwSssHpPLlzlnNlzLLNNLVtsN
+JPMmWGmWPmHbHpJbWGJmDmwbBTRZMBBdZCRTRjFjhCZCCBTT
+BjbcLFRfBRhnbGjCVVvPllpcPtcDmdlPpvPP
+WrMQqCNgsqWWsTNCMZMWWsWPvJDJDddvlpDtZDpDDDDwvP
+qNMzzSzSQsGLbFCSCnVR
+tTRpHJQpQBZcddhhMhvhJN
+zswljflgMFbwPqmNmSdvShLNfLhm
+qFbsMCVgsqMwRWHCWDDBDWpt
+VSTCCWsJvGpHHCNC
+GrqzZrrZjDljcDDlfjMqgRPfPvQPpBHNvHvBpvNQ
+rljncDcznjMqhlhZDnltrzhTsGWtbVLFTTWGsbdWJdFTmL
+mJPDSJJPZPJNrprSNrDmpZGrhFFhBqjGbGGVbFjhhfqBjBRV
+cgnTQHdMQdTHdhqfggBhVqVfVS
+nQdLLddssSJrmsNvZrPz
+jfjffQzZQQMzZZfZZQFgjDWBCRlCBdTTBGGGRpBCgdhdBG
+LrstWtNsbHLsprRBdlGpCwlh
+HLnntbnscqLvvPNNfMWSSmDMDPjzjDzS
+vhcGwWVvglltcfBn
+BBSLrzSJLzJNJrLfPfPRsmDRmflD
+jMjFZJNMqzrzZzFNFjNQqJzbCpBBvWdpvTCWhpVwdvHVCGbG
+HlrnFmRmtRBQPVBTQHHQ
+psSLJsLpTTdPdLTv
+fCGgTgfSSCtRtFFzql
+pfTpStppcDlWfbpDdzQRsQGJhfffQgJHzN
+ZFZFZmBFwVwBVmLmLsRLRhHNzRLRNNzJ
+FnnjwVPmnqqqjBjrTdblldCTpcPJtbTD
+bdZHdWlrjslMMwGG
+rDDTRBTqSqmJLBJRBTSJpmMsMMjhwvfMhjjfVGsLshhC
+BqQFRPFRQBJgzrcZNHFdZt
+wrDdLlDdPWZPTTrwlZpSsPsHVHsSCHnbzMHM
+JtNFttNCjFvpppnMpJgSVS
+NFFqFcCQCvfrZmGdZdmqrW
+GMNNfJnNddJFJWsv
+HSDwCmmghLmwmmHDpsvdFpMWpppptSbp
+zCzBCgzhwmhzLrPnVrMqZBNfGf
+DrHGtbltbCjjjffPrgsmzmcqsgDczdsmgJ
+VZLwQLZLLVwLBQZnLVphhLQQqsTNmzJdcNTzzmJNqlNBsszz
+wZLhVMplpQVRRlpVGPfjCjMGCrbHGWWb
+BHpFrHHbBNTWWTWNhCPwPLNPjCdjLV
+zJRRzJvZlcZsSMJdzSDjDtfDCtDtjDjjjj
+dcJcszQJJGRJzRllMpGHpFTWmrTmBTbWWB
+qnWWqhDhnjmjCMBlNRrfVfRNCB
+vvBLBtGHJTHBddrNVJrVSVdr
+BZLTHbgvHvTFBgTFFvhmWmmZDPmmZDsnqncs
+WBvmjDbSzTMmHHdpNHNF
+ttlflZRfGtfWVRltGtflCdHnJrNJHNHnJddNMNCnpF
+VVwssWQQfRGZcszBQzDbjSBvSBDP
+lSlQqQVqWWVWfqQWVJSTscdmPPwwTTmjjfpjPp
+FCbzHbvHvtgrtFCvbvbbwdTwmsrwnTTpmdswmwcc
+DtZbHdghztlLMQlWWhVQ
+pqzzFSmdFqbQvlpdDGGrGBWPPBVNQnVttZ
+cgcjwfBMhHCjjLMCrtcnPcsnsPGVnrVs
+JgCChjjjBHhRRLLjjhplzvzpSFJvzzlDbSqm
+mZzVQZMhmrffwfQhWhzmrmpBtRcdbnbcdcMpBbDbncdD
+jsLTSlTWRBSDpnDn
+GLTsGWGFsfmJGZVJZm
+BGWshBGnsFWSLWBLlSSLWRJHnrVPrPcNHCNHctnPPJ
+QmvQCqqMTZqvgmvTjpZCMgMtrVctPptHtrNVrptbJJbrRP
+CzjCZfCwDzShDWdF
+HmQlQHmJnpmptmzt
+MTqMjMPvTvVvhpdztZnSwzwZqS
+CcbLLPTMtCCsjHNHQFLRRFlRNN
+GDFwLLLLSrbdPlFBMFsslFHmZH
+TnJCgthHpVTfZMQZQmzWnZ
+hjvtjtghtqJvVjhTgNhJTvdvdDDRbbccrwPdcGwrHS
+MQQMBPzMGQBPBbDQPMhpnRwsGnRhNrFFpRnF
+vmgHcmCTTlvvvZvTmqcTfmCRdddFnwdRdnVwFpVfpRnwNw
+gvmqJTcHclCQJNzjMLWbLj
+DbqqDDbQFqfNtZSLSq
+RrdjPdmrpWBdmWRdccfLtNttSDMZBfftLMLf
+dCcgmgRrWcgcppjCVVVVFHFnDnbJnb
+fZMFfrtVdZSDVwTgjRMLhwTCLj
+cNzPBNpclllzHbmTNRhqCRTgjC
+nhhWJzhGPlQcGvsvfJtSfZfrtt
+PSzrBWQBBGzBlnSnWtDrqHfNfwVwHcLNjHjwcDNmFH
+hbRhtRCRpRvsRgVVVcNHNNNCwLwc
+ZtRTRvttWWzBPlGZ
+tcLnctNsJrWWNDTN
+pwPPSjHSHHfzvmSvvvFVVGqGVqGmFqrDWgDr
+pPSvfPQMzCQCSbhllLnQDhbtQZ
+DmLffDhpVhjjVwvbwNVFbbNSNH
+JRPBgMPRHBrMHMHqrBMqWJBSQQNbCvndNrdvCNCFwFrQnv
+WcqJcPGMGtWRRBtgZjjspGHTLHGHTppm
+ptJtWJpqRwDZZDVWpbDWqlvvflfMjlfCMjdCCdtslv
+rLwTBGBzBBQTzmwCCjvdvlLllddsMl
+NBwTmrGNgrTrcgPpWgWPDSVVPW
+CdglMnrlSSqDPpcsZb
+ccwmVJtvVvVtNhBpBFPDVpqbbD
+TRGQjJjGTmtrTCgHWLfrcn
+JNNhLwWwWQHNPDmmjHpc
+zMqZCvVCSMVqMSTVvZVGsBnlslpmsmzlPmsHPsPB
+qTVqrgdCCbhfHJQFtg
+wNwCBBCZsfQWfmLCGSmmFRGSSF
+zjnPHPVqMhhZLTcbpbSncp
+lVlhlgzlPZlwtgBddJdfvf
+JWRWRRLWJLnjtjnLzGzznflBvfPvPMqMDqdbzblCzC
+TTScTVbHmTsVFrmcsgcHFlPMMvlvrDPdlrDDqdldvl
+bVpcpchgsFZHbhSmSTsHFFjwtZjnjLttntNjLjNLWtjw
+rffjPJzWzrgPpGWHVNqTtmqFTVRH
+cswhvlLBvSLsCtbFccmqVFNTbb
+wwZSCZSnCLsSDGgDmpGnfmmr
+rTfJTNtjfNljlrWSlzRtNlTqsddwGnsnHHwwhssTsnqw
+VpbpZZbvPLbZbbBhwqMHhsGMnJdVwV
+mgQZJDLBJbbbcbgZClCSfWlrCjRjlDCR
+fSpwcVfzsztcSSWNNMbnMRqTvtTv
+mJFmGDDDhGhBJHCQddllqTvCllqTRRWNnMbT
+FdFDGdDDDhhHdZDjhDmpwSPVZszpwZsVgsPRZs

Diff for: project5.bak

@@ -0,0 +1,70 @@
+program project4;
+uses
+  classes, sysutils,StrUtils;
+
+  var
+    stringA, stringB, stringC: string;
+       valor:integer;
+       arquivo: textfile;
+       linha:string;
+       tamanho,soma,erro,posicao,i,j,k:integer;
+       alfa: string;
+       charigual:char;
+       jaachei:array of char;
+       achei:boolean;
+
+  begin
+        alfa:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
+
+
+      Assign(arquivo,'entrada3.txt');
+     reset (arquivo);
+     soma:=0;
+     achei:=false;
+
+     while not eof(arquivo)  do
+     begin
+          readln(arquivo,stringA );
+          setlength(jaachei,0);
+          tamanho:=length(stringa);
+          stringb:=copy(stringA,1,round(tamanho /2));
+          stringc:=copy(stringA,round(tamanho/2)+1, round(tamanho/2));
+          writeln (stringa,' ',stringb,' ',stringc);
+          for i:=1 to length(stringb) do
+          begin
+          charigual:=' ';
+              for j:=1 to length(stringc) do
+              begin
+                        writeln ('comparando ',stringb[i],' ' ,stringc[j]);
+                if stringb[i]=stringc[j] then
+                begin
+                  charigual:=stringb[i];
+                  write ('achei o caracter ',charigual);
+                  posicao:=pos(charigual, alfa);
+                  writeln ('na posicao ',posicao);
+                  achei:=false;
+                  for k:=0 to length(jaachei) -1 do
+                  begin
+                        if jaachei[k] = charigual then
+                        achei:=true;
+                  end;
+                  write ('achei',achei);
+                  if (not achei) then
+                  begin
+                        write ('entrei');
+                           setlength(jaachei, length(jaachei)+1);
+                           jaachei[length(jaachei)-1]:=charigual;
+                           soma:=soma+posicao;
+                           writeln ('somei. soma atual', soma);
+                  end;
+
+                end;
+              end;
+
+          end;
+     end;
+     writeln ('achei o valor ' , soma);
+
+  end.
+
+