اطلاع رسانی و برنامه نویسی ویندوز و وب

program filewrite;

var a : integer;

var matn : char;

var

File_open: Text;

i: integer;

CH1 : char;

key: char;

mm : real;

rec,tol: integer;

C : Char;

CH:array[1..226] of integer;

begin

{---------------- read -----------------}

Assign(File_open, 'txt.txt');

rewrite(File_open);

key:='a';

rec:=0;

writeln(' Key ( shift + 6 ) and Exit ');

while key <> '^' do

begin

Read(key);

if (ch[integer(key)]) = 0 then

ch[integer(key)]:=1

else

ch[integer(key)]:=ch[integer(key)]+1;

Append(File_open); { Add more text onto end }

write(File_open, key );

end;

writeln(File_open, '' );

writeln(File_open, '------------------------' );

for i:=13 to 136 do

begin

if (ch[i] <> 0 ) then

begin

writeln(' This character ( ', char(i) , ' ) = ', ch[integer(i)], ' repet ' );

Append(File_open); { Add more text onto end }

writeln(File_open, ' This character ( ', char(i) , ' ) = ', ch[integer(i)], ' repet ' );

end;

end;

Close(File_open);

end.