Паскаль, задачки - строки, подпрограммы

[Меф]

4. Строки.
Дана строка, содержащая текст на русском языке. Выбрать из него только те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
5. Подпрограммы. Составить программу на Паскале.
Дан одномерный массив, выполнить следующие действия:
- найти первый максимальный элемент массива и заменить его нулем.
- заменить нулями те числа, величина которых по модулю больше максимального числа;
- найти max(a2, a4, …a2k)+min(a1, a3,…a2k-1);
- найти среди элементов массива те, которые являются квадратами некоторого числа m;
6. Из заданного списка спортсменов распечатать сведения о тех из них, кто занимается плаванием, указать возраст, сколько лет занимаются спортом и фамилию самого старшего.
7. Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Определить сколько процентов от общего числа элементов составляют положительные элементы файла.
8. Составить программу – тестирование по информатике (10 вопросов; 4 варианта ответов к каждому вопросу; выставление итоговой оценки с рекомендациями). Тестовые задания должны выбираться из файла во время работы программы.
9. Графика в Паскале. Нарисовать правильный шестиугольник.

[pomoshnic]

4)

Var s,s2:string;
A:array [30..255] of integer;
I:integer;
Begin
Write('String: ');
Readln(s);{Ввод строки}
For i:=1 to length(s) do
Inc(a[ord(s[i])]);{увеличить значение элемента с кодексом соответствующим ASCII коду символа s[i] на 1}
For i:=1 to length(s) do
If a[ord(s[i])]=1 then s2:=s2+s[i];{если в элементе массива с кодексом соответствующим ascii коду текущего символа записано число 1, тоесть символ встретился один раз, тогда в строку s2 добавить текущий символ}
Writeln('~~~~');
Writeln(s2);
Readln
End.

[Меф]

а не могли бы вы обьяснить код этой программы, хотелось бы попробовать самому исправить маленькую ошибку

[pomoshnic]

7)Вроди так, если неработает тогда говорите, потому что я писал с телефона и не проверял.

Var f:text;
I,p,o:integer;
Begin
Randomize;
Assign(f,'rndnmb.txt');
Rewrite(f);
For i:=1 to random(40)+10 do write(f,random(200)-100,' ');
Close(f);
Reset(f);
While not eof(f) do
Begin
Read(f,o);
If o>0 then inc(p);
End;
Close(f);
Writeln((i / 100)*p:1:3,'%');
Readln
End.

[Меф]

4 не совсем корректно работает, в ней определяется по словам буква а не по всему тексту, 7 вроде работает как надо

[Sazary]

Меф

4 не совсем корректно работает, в ней определяется по словам буква а не по всему тексту

мм... Как-то не очень понял, в чем проблема. Запустил - работает как надо:

String: фываолдж ава ууу вла чб
~~~~
фыоджчб

[pomoshnic]

Сообщение от Меф

4 не совсем корректно работает, в ней определяется по словам буква а не по всему тексту

Что вы имеете ввиду? Напишите что вы вводите, и как отвечает программа.

[Меф]

прошу прошения, толька что запускал через другой паскаль все нормально выдал

[pomoshnic]

8)

Uses crt;
Const fn='c:\t.txt';
Var f:text;
Prav,vsego:integer;
Otv,pr:char;
S:string;
Begin
Assign(f,fn);
Reset(f);
While not eof(f) do
Begin
ClrScr;
Inc(vsego);
Readln(f,s);
Writeln(s);
Readln(f,s);
Writeln(s);
Readln(f,s);
Writeln(s);
Readln(f,s);
Writeln(s);
Readln(f,s);
Writeln(s);
Write('->');
Readln(otv);
Readln(f,pr);
If otv=pr then inc(prav);
End;
Writeln('Vsego voprosov ',vsego,', pravilnyx otvetov ',prav);
Close(f);
Readln
End.

Пример файла f.txt

Где ошибка?
1 var:char;
2 b:char;
3 ir:char;
4 ans:char;
1
...

Плиз оставь мне отзыв(нажми на весы под аваром)

[Меф]

Кажется оставил благодарю вас за труд