Задачи для студента

program Stroka;
uses crt;
var  s: string;
   i,k,control: integer;
   Mas: array[1..40] of char;
begin
     clrscr;
 
     WriteLn('Vvedite stroku: ');
     ReadLn(s);
 
     control:=0;
     for i:=1 to length(s) do
         begin
         for k:=1 to 40 do
             if s[i]=Mas[k] then
                begin
                s[i]:=' ';
                break;
                end;
         Mas[control+1]:=s[i];
         inc(control);
         if s[i]<>' ' then Write(s[i]);
         end;
 
     ReadLn;
end.

program Text_file;
uses crt;
var f, f_new: text;
    Im1, Im2, s, s1: string;
    i, k: integer;
 
begin
     clrscr;
 
     Write('Vvedite imja faila: ');
     ReadLn(Im1);
     Write('Vvedite imja novogo faila: ');
     ReadLn(Im2);
 
     Assign(f, Im1);
     Assign(f_new, Im2);
     Reset(f);
     Rewrite(f_new);
 
     while not eof(f) do
           begin
           ReadLn(f, s);
           s1:='';
           for i:=1 to length(s) do
               if s[i]=' ' then s1:=s1+','+s[i]
                           else s1:=s1+s[i];
           WriteLn(f_new, s1);
           end;
     close(f);
     close(f_new);
 
     ReadLn;
 
end.