завтра (6 декабря) зачет..помогите решить 3 задачи!

[Siluet]

1.Дана строка. Преобразовать её, удалив каждый символ, отличный от *
2. Составьте программу перевода РУССКИХ строчных букв в прописные..
3. Дана матрица. Размерность вводится максимум 10 на 10. Если в этой матрице несколько max элементов то все кроме первого из них заменить на номер строки..

[Siluet]

var a: array [1..10, 1..10] of integer;
   i1,j1,p,imax,jmax,k1,i,j,k,max,n,m,n1:integer;
   label q;
begin
 ClrScr;
write('Введите число строк матрицы до 10:  ');
readln(m);
write('Введите число столбцов матрицы до 10:  ');
readln(n1);
ClrScr; i:=0;
 for i:=1 to m do
  for j:=1 to n1 do
  begin

   a[i,j]:=random(15)-4;
   write(a[i,j]);
  end;
  
ClrScr;
 writeLn;
 writeLn('Исходная матрица*');
 writeln; max:=-maxINT;

 for i:=1 to m  do
 begin
  for j:=1 to n1  do
   write(a[i,j]:4);
   writeln;
 end;

 for i:= 1 to m do  
 for  j:= 1 to n1 do
 begin          {находим max}

 if a[i,j]>max then max:=a[i,j];
 
   end;

  for i:= 1 to m do
  for  j:= 1 to n1 do
  q:   if max=a[i,j] then begin k:=k+1; {считаем количество}
  imax:=i; jmax:=j; a[imax,jmax]:=i;  end;{меняем местами}

  writeln;
  writeln('Измененная матрица*');

   writeln;
   for i:=1 to m  do    {цикл вывода измененной матрицы на экран}
    begin
      for j:=1 to n1  do
       write(a[i,j]:4);
       writeln;
    end;  writeln('max=',max); writeln('k=',k);
 readkey;
 end.

а вот как пропустить первое слово я не знаю!!! ПОМОГИТЕ!!!

[CrazyRabbit]

в первой задаче:символ отличный от знака умножения или он вводиться с клавиатуры?

[Siluet]

кароч вводим строку например : ffff*dsf*dsfesd*f445tte*erg*sdf
и вот надо все удалить..кроме звездочек...

[alex_fcsm]

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

[Siluet]

alex_fcsm спасип Огромное..

[Siluet]

А третью задачу кто нить может доделать ?

[alex_fcsm]

Вторая http://programmersforum.ru/showthread.php?t=30497

[Викдон]

перевода РУССКИХ строчных букв в прописные.. т.е. большие на маленькие?

[alex_fcsm]

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,l,max:integer;
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5);
    write(a[i,j]:3);
   end;
   writeln;
 end;
max:=a[1,1];
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]>max then max:=a[i,j];
l:=0;
for i:=1 to n do
 for j:=1 to n do
  if (a[i,j]=max) then begin if (l=0) then inc(l)
                                 else a[i,j]:=i;

                       end;
writeln(max);
writeln;
for i:=1 to n do
 begin
  for j:=1 to n do
   write(a[i,j]:3);
  writeln;
 end;

end.