Паскаль, 2 задачи на строки, 1 на процедуру

[Qfast]

1. Для двух строк найти n символов, таких чтобы в 1 строке-строчная буква, а во второй такая же заглавная.
пример как должно работать:
s1:bebпя
s2:BCDЯ
результат:b=1->B=1
b=3->B=1
я=5->Я=5

2. случайным образом комп загадывает букву алфавита. Пользователь должен ее отгадать с помощью подсказок "Левее" и "Правее".

3.задать пользвателю вопрос требующий онознчного ответа. Дать несколько попыток. Эту задачу нужно сделать применив процедуру и функцию. Я не знаю что на них заменить.

Срочно помогите, ко вторнику нужно сдать, а то в армию

[Карась]

Читай подпись.

У тебя есть ещё вечер и один день. За это время можно прочитать нужные главы, разобрать пару примеров и решить задачи.
Вот когда будет программа хоть както написанна, то тогда и приходи...
Мы поможет отладить\исправить.

Шагом марш... ать, два, ать , два.........

[Qfast]

В первой проге я не знаю как сделать поиск. Все время ноль выходит. с Нижнего наверхний ригистр переделал. а дальше не получается.
Во второй даже не знаю как сделать случайную букву.
вот третья:
writeln('сколько будет 5+5?');
readln(n);
repeat writeln('попробуйте еще раз') until n=10;
begin
writeln('введите ваше имя и фамилию');
readln(d);
end;
вот что здесь можно заменить на процедуру и функцию?

[Qfast]

ну кто нибудь напишите код программы

[Iceman]

чем больше в нашей армии дубов.. тем сильнее наша оборона на 2. просто узай перевод с char to integer и наоборот. подскажите ету процедуру ( схар на инт.) - напишу код. сам забыл чето.

[Карась]

Вторая вот. Третью не понял.

Var Zad_chislo : Integer;
      Eng : String = 'abcdefghijklmnopqrstuvwxyz';
      a : String;

Begin
Randomize;
Zad_chislo := Random(26) + 1;

Repeat
  Write('='); Readln(a);
  If pos(a, Eng) > Zad_chislo Then Writeln ('Levee');
  If pos(a, Eng) < Zad_chislo Then Writeln ('Pravee');
Until Zad_chislo = pos(a, Eng);

Writeln ('Pobeda');
Readln;
End.

[Qfast]

спасибки. первую почти сделал с преподом на лекции, но она не работает скоро выложу текст

[Qfast]

вот она
s1,s2:string;
ch1,ch2:char;
fl:boolean;
i,j:integer;
begin
readln(s1);
readln(s2);
for i:=1 to length(s1) do
begin
fl:=false;
ch1:=s1(i); вот здесь уже не работает, но напишу всю
if((ch1>='a') and (ch1<='z')) and
((ch1>='a') and (ch1<='п')) then
cod:=ord(ch1)-32;
if ((ch1>='р') and (ch1<='я')) then
cod:=ord(ch1)-80;
for j:=1 to length(s2) do
begin
ch2:=s2(j);
if ord(ch2)=cod then
begin
false:=true;
write(ch1,'=',i,'->');
writeln(ch2,'=',j);
end;
end;end;
if fk:=false then writeln('нет совпадений');
end.

подскажите почему не работает

[Карась]

Что говорит компилятор?
Что значит не работает?

АДД: ch1 := s1(i); ======= s1[i] !!!!

[Qfast]

говорит типа в том месте ошибка,вроде. Я дома еще не набирал. А в той проге что та написал
для eng значения нужно после begin прописывать