Aula 05 Arquivo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Aula05_Arquivo;
Type
AuladeHoje = array[1..2] of string;
var
 arq: Text ;
 caractere:string;
 i,j:integer;
 vet:AuladeHoje;
begin
 assign( arq, 'aula.txt' );
 reset( arq );
 i:=0;
 while not eof( arq ) do begin
 read( arq, caractere );
 write( caractere );
 i:=i+1;
 vet[i]:=caractere;
 end;
 writeln;
 for i :=1 to 2 do writeln (vet[i]);
 if vet[1] > vet[2] then
 	writeln ('vet1 maior que vet2')
 else
 	writeln ('vet2 maior que vet1');
end.