[chainik]

Посмотри может поможет.
Все очень несложно.
Работы на 15 минут.

Код:

//// 1 //////////////
var
A,B,C:extended;

procedure maxmin(var x,y:extended);
var
z:extended;
begin
if y>x then
    begin
    z:=y;
    y:=x;
    x:=z
    end;
end;

//maxmin(A,B);maxmin(B,C);

//// 12 ///////////
var
F:textfile;
s:string;
N:integer;

//функция выделяет четные символы строки
function OddStr(s:string):string;
var
i:integer;
begin
SetLength(Result,Length(s) div 2);
for i:=1 to Length(Result) do
    Result[i]:=s[i*2];
end;

//каждую 3 строку обрабатываем процедурой s2 и направляем
//в Memo
assignfile(F,'Anka.txt');reset(F);
N:=0;
while not eof(F) do
    begin
    readln(F,s);
    if N=0 then Memo1.Lines.Add(OddStr(s));
    N:=(N+1) mod 3;
    end;
CloseFile(F);

//////13///////////////////////////////
//функция зеркально отображает строку
function MirrStr(s:string):string;
var
i:integer;
begin
SetLength(Result,Length(s));
for i:=1 to Length(Result) do
    Result[i]:=s[Length(Result)-i+1];
end;

assignfile(F,'Anka.txt');reset(F);
while not eof(F) do
    begin
    readln(F,s);
    Memo1.Lines.Add(MirrStr(s));
    end;
CloseFile(F);