olá,
estou com um problema no meu programa, eu não consigo ler variáveis array num arquivo txt, porque n sei, consigo escrever, mas n ler, então venho pedir ajuda a vocês
Program Testesparachl0e ;
const caminho = 'C:\Users\Usuario\Desktop\chl0e\chl0e_data\pos,mau.dat';
var
posmau : array [1..50] of string;
i : integer;
frase : string;
arq_posmau : text;
Begin
assign(arq_posmau,'C:\Users\Usuario\Desktop\chl0e\chl0e_data\pos,mau.dat');
rewrite(arq_posmau);
for i:=1 to 50 do begin
writeln(arq_posmau,posmau[i]);
{ai é q tá, só sei escrever a array, mas n ler, queria ler ela nos arquivos e colocar nos lugares da array}
end;
readln(frase);;
for i := 1 to 50 do
posmau[i] := arq_posmau;
for i := 1 to 50 do
begin
{aqui é um algoritimo de leitura da frase, pois queria colocar todas as possiveis,
só que o programa passou a lagar, então queria fazer tudo numa vaiavel,
dai ele lê tudo a array ali e checa se alguma é similar}
if(frase = posmau[i]) then
writeln(posmau[i]);
end;
close(arq_posmau);
End.