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

با سلام خدمت دوستان این پروژه را برای کسانی که می خواهند استفاده کنند گذاشته ام اگر متن را کپی کنید و یک فایل بسیازید و آن را با پاسکال باز کنید و اجرا کنید برنامه اجرا می شود.

اول از شما سوال می کند که چند خط می خواهید تایپ کنید

بعد هم مطالب خود را تایپ می کنید و در نهایت متن شما را در فایل ذخیره کرده و تعداد حروف را به شما می گوید.

program filewrite;

var a : integer;
var matn : char;

var
  File_open: Text;
  i: integer;
  CH1 : char;
  key: char;
  mm : real;

  rec,tol: integer;
  CH:array[1..226] of integer;
begin
{---------------- read  -----------------}
  Assign(File_open, '01.txt');
  rewrite(File_open);
  key:='a';
  rec:=0;

   write('How meny Lines : ');
   Readln(tol);
for rec:=1 to  tol do
begin
key := '1';
  while integer(key) <> 13 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(rec);}
Continue;
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.