1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

assignfile(Mitglieder,name);
  reset(mitglieder);
  While not eof(mitglieder) do
   begin
      readln(mitglieder,s);
      vorname:=copy(s,0,pos(',',s)-1);
      delete(s,0,pos(',',s));
      name1 :=copy(s,0,pos('/',s)-1);
      delete(s,0,pos('/',s));
      geschlecht:= copy(s,0,pos('/',s)-1);
      delete(s,0,pos('/',s));

   if geschlecht='w' then
     Begin
       memo2.Lines.Add(name1+','+vorname+'/w');
     end
   else
       memo1.Lines.add(name1+','+vorname+'/m');

end;
  closefile(mitglieder);
end;					

1:

delete (0,...