Erro no Pascalzim quando executo o programa de gravação no arquivo cadastro.txt
Amigos estou tendo um problema.
Quando executo o cadastro, o pascalzin fecha, e não está gravando na pasta do arquivo txt.
Veja meu código:
Program Pzim ;
var
txt : text;
nome : String;
total_nome : Integer;
Begin
assign(txt, 'C:\\rlsystem\cadastros.txt');
writeln('Digite o nome a ser salvo:');
readln(nome);
total_nome := length(nome);
if total_nome > 4 then
begin
append(txt);
writeln(txt, nome);
writeln('Gravdo com sucesso.');
end
else
begin
writeln('Erro, porque você colocou um nome pequeno.');
end;
close(txt);
readln(nome);
End.
