ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
var m:integer;
begin
for m:= 0 to memo1.Lines.Count-1 do
begin
I:= random(memo1.Lines.Count);
memo2.Lines.Add(memo1.Lines.Strings[i]);
memo1.Lines.Delete(i);
end;
end;

procedure peremeshat(s1,s2:TStrings);
var i,k:integer; s:TstringList;
begin
s:=TStringList.Create;
s.Text:=s1.Text;
s2.Clear;
for i:=0 to s.Count-1 do begin
k:=random(s.Count-1);
s2.Add(s[k]);
s.Delete(k);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
peremeshat(memo1.Lines, Memo2.Lines);
end;

program proga;
var k,i,m:byte; ip,op:TextFile; s:string;
begin
m:=0;
assignfile(ip, 'c:\input.txt');
reset(ip);
assignfile(op, 'c:\output.txt');
rewrite(op);
readln(k);
while not(eof(ip)) do begin
readln(ip,s);
inc(m);
end;
reset(ip);
for i:=1 to m-k do
readln(ip);
for i:=1 to k do begin
readln(ip,s);
writeln(op,s);
end;
closefile(ip);
closefile(op);
writeln('Gotovo!');
readln;
end.