Помогите пожалуйста решить 2 задачи в Turbo Pascal

[Gangzta]

Помогите пожалуйста решить..а то в программираии я вообще ноль..а задали лабораторки делать(
В тексте заменить все символы A на B - 1 задача
В матрице 3 на 4 упорядочить каждую строку по убыванию - 2 задача

[Hollander]

первая задача:

var
s: string; //твой текст
i:integer;
begin
for i:=1 to length(s) do
if s[i]='A' then s[i]:=B;
end.

[Tayfun]

program zad2;
uses crt;
var
a:array[1..3,1..4] of integer;
p,t,i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 3 do begin
for j:=1 to 4 do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 3 do
for j:=1 to 3 do
for t:=j+1 to 4 do
if a[i,j]<a[i,t] then begin p:=a[i,j]; a[i,j]:=a[i,t]; a[i,t]:=p; end;
for i:=1 to 3 do begin
for j:=1 to 4 do
write(a[i,j],' ');
writeln;
end;
readkey;
end.

[Tayfun]

Сообщение от Hollander

первая задача:
var
s: string; //твой текст
i:integer;
begin
for i:=1 to length(s) do
if s[i]='A' then s[i]:=B;
end.

Интересно представлен код...
Если хотите выложить полный код, то хотя бы не допускайте ошибок в коде или пишите его фрагментами, а то совсем ничего не понятно... Ввода нет, и вывода тоже... и где B пропущены ковычки...

var
s:string; 
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='A' then s[i]:='B';
writeln(s);
end.

[Gangzta]

Спасибо большое!!!я оч благодарен!!!